Private cnnNwind As New ADODB.Connection
Private rstTemp As New ADODB.Recordset
Private strSQL AsString
With cnnNwind
.Provider="Microsoft.Jet.OLEDB.4.0"
.ConnectionString=CurrentProject.Path&"\Nwind.mdb"
.Open
End With
strSQL="SELECTProductID, ProductName FROM Products"&_
"ORDER BY ProductName"
With rstTemp
Set.ActiveConnection=cnnNwind
.CursorType=adOpenKeyset
.LockType=adlockOptimistic
.Source=strSQL
.Open
End With
Stop