Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Sets the locking type in the call to the Open method

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     Set con = New ADODB.Connection          con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=C:\mydb.mdb;"             myRecordset.Open "SELECT * FROM Employees", con, adOpenKeyset, adLockOptimistic     Set Me.Recordset = myRecordset          myRecordset.Close     con.Close     Set myRecordset = Nothing     Set con = Nothing End Sub