Not shure what your question is, but here is a guess.
Public Sub YourSub()
Dim rs As ADODB.Recordset, strSomeValue as String
Set rs = New ADODB.Recordset
rs.Open "SomeTableName or Sql statement", _
CurrentProject.Connection, adOpenDynamic, adLockOptimistic
With rs
If not .EOF Then
strSomeValue = Nz(!SomeFieldName,"")
Debug.Print "SomeFieldName in SomeTable = " & strSomeValue
End If
.Close
End With
Set rs = Nothing
End Sub
Please note there is no error checking here. In a real app you will want to
add some.
Ron W
