Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

The Load Event Assigning a Recordset Object to the Form

Private Sub Form_Load()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenKeyset     rst.CursorLocation = adUseClient     rst.LockType = adLockOptimistic     rst.Open "Select * from tblClients", Options:=adCmdText     Set Me.Recordset = rst End Sub