seek(編號：2317)

Set db = OpenDatabase("\..\aaa\aaa.mdb")
Set rs = db.OpenRecordset(字串變數) '=＞這樣的寫法不知可否
　 If rs.NoMatch = True Then
　　　MsgBox "找不到"
　 Else
　　　TxtStaNo.Text = rs.Fields!STANO
　　　TxtStaName.Text = rs.Fields!STANAME
　　　TxtStaDesc.Text = rs.Fields!STADESC
　 End If
如果我要用seek的方式來找尋資料我應該如何寫