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