Try
                Using Conn As New OleDb.OleDbConnection(strConnessione)
                    Conn.Open()
                    queryString = "DELETE FROM Miatabella WHERE CAMPO1 = '" & A & "' AND CAMPO2 = 'B'"
                    Dim ElRec As New OleDb.OleDbCommand(queryString, Conn)
                    Dim Result As Integer
                    Result = ElRec .ExecuteNonQuery
                    If Result = 0 Then
                        MsgBox("Eliminazione datii non riuscita!")
                    Else
                        MsgBox("Sono stati eliminati " & Result & " record(s)!")
                    End If
                    'Conn.Close()
                End Using
            Catch ex As Exception
                MsgBox(ex.Message & " --- ERRORE NEL BLOCCO: ELIMINA DOC. INSERITI.")
            End Try