31-01-2008, 08:05 PM
This is how your subs need to look like:
Code:
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
RS.Open "QUERY", Conn_Client, adOpenStatic, adLockOptimistic ' now this are a lot of params, google them and you will know what them all do.
RS.MoveFirst
Variable = RS.Fields("FKey") ' blablabla
RS.Close
Set RS = Nothing