Something like the following (I didint test but should give you the idea):
VB Code:
dim rst as new ado.recordset strSQL = "SELECT * FROM PoolPass WHERE " & strSearchField & "=" & strSearchString cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\test.mdb;jet oledb:database" rst.Open strSQL ,cnn, adOpenStatic, adLockOptimistic rst.Update ' record is now stored in rst rst.Close set rst = nothing




Reply With Quote