Ohh. You want to use a recordset object.
If you're referring to fields from a form's recordset (or report's) it would look like this:
Code:
Public Sub mytest()
On Error GoTo ErrHandler
Dim red As String
red = "Red"
Me.textbox_name = red & vbCrLf & " " & Me!FIELD_1_NAME_HERE & vbCrLf & " " & Me!FIELD_2_NAME_HERE
ExitHandler:
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "Error " & Err.Number
Resume ExitHandler
End Sub
If you're running a query from code it would look like this:
Code:
Public Sub mytest()
On Error GoTo ErrHandler
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim red As String
Set db = CurrentDb
Set rs = db.OpenRecordset(QUERY_NAME_OR_SQL_STRING_GOES_HERE)
If Not (rs.BOF And rs.EOF) Then
'rs isn't empty so the query must have returned records
red = "Red"
Me.textbox_name = red & vbCrLf & " " & rs!FIELD_1_NAME_HERE & vbCrLf & " " & rs!FIELD_2_NAME_HERE
Else
'query didn't return any records.
End If
rs.Close
ExitHandler:
Set rs = Nothing
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "Error " & Err.Number
Resume ExitHandler
End Sub