Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Assign form Recordset in its open action

Private Sub Form_Open(Cancel As Integer)     Dim con As ADODB.Connection     Dim myRecordset As ADODB.Recordset     Dim strFrmNm As String          Set myRecordset = New ADODB.Recordset     myRecordset.CursorType = adOpenKeyset     myRecordset.LockType = adLockOptimistic     Set con = New ADODB.Connection     con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\store.mdb;"             myRecordset.Open "SELECT * FROM Employees", con     Set Me.Recordset = myRecordset          myRecordset.Close     con.Close     Set myRecordset = Nothing     Set con = Nothing End Sub