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