構文： recordset.FindLast フィールド名=検索文字
文字列フィールドを検索する場合は、フィールド名='検索文字' のようにシングルコーテーション (') で囲みます。
'データベースを開く
Set DB = OpenDatabase("C:\sample2.mdb")
Set rs = DB.OpenRecordset("table1", dbOpenDynaset)
'先頭から検索
rs.FindLast "field1 ='" & TextBox1 & "'"
If rs.NoMatch Then
MsgBox "見つかりませんでした。"
Else
Range("C7") = rs.AbsolutePosition + 1
Range("C8") = rs(0)
Range("C9") = rs(1)
End If
■実行画面
