Set mydata = mydb.OpenRecordset( "tblCustomerName", DB_OPEN_DYNASET)
Myname = "Mary"

mydata.FindFirst "[Name] = """ & Myname & """"
Do Until mydata.NoMatch
      msgbox "what name am I on? " & mydata![Name]
      mydata.FindNext "[Name] = """ & Myname & """"
Loop

레코드셋 대신에 SQL을 이용한다

Myname = "Mary"

Set mydata = mydb.OpenRecordset( _
     "SELECT tblCustomerName.* FROM tblCustomerName " _
         & "WHERE tblCustomerName.Name=""" _
         & Myname & """" _
         , DB_OPEN_SNAPSHOT)

Do Until mydata.EOF
      msgbox "what name am I on? " & mydata![Name]
      mydata.MoveNext
Loop


Copyright By AccessVision