Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Call delete method in Recordset

Public Sub RemoveCompany()   Dim rst As ADODB.Recordset   Dim strSQL As String   Set rs = New ADODB.Recordset   rs.Open "SELECT * FROM tblCompany WHERE CompanyID=14", CurrentProject.Connection, adOpenStatic, adLockOptimistic   With rs     If .RecordCount > 0 Then       .Delete     End If   End With   rs.Close   Set rs = Nothing End Sub