How to consume a RecordSet in VBA with a single row
If you want to read just a single value from a table, this can be helpful.
the connection to the database is the current one, builtin inside MS Access.
post this code
Public Function GetStringFromDB(ByVal id As Integer) As String
On Error GoTo ErrorQuery
Dim objRS As ADODB.Recordset
Dim cmd As ADODB.Command
Dim sql As String
'Init db objects
'Connection is the current DB one
Set cmd = New ADODB.Command
Set objRS = New ADODB.Recordset
sql = "SELECT MyField FROM MyTable WHERE ID=" & id
Set objRS = CurrentProject.Connection.Execute(sql)
GetStringFromDB = objRS("MyField")
Set objRS = Nothing
Exit_go: Exit Function
ErrorQuery: GetStringFromDB = ""
If you want to be updated about similar snippets,
and follow our Channels