Adoconnectio Metodo Execute

MsgBox("Tutte le Fatture con mese " & ComboBox2.Text & " anno " & TextBox2.Text & vbCrLf & _
            "sono state cancellate", MsgBoxStyle.Information, "OK")

'*****************************************************************************************************

Public Sub EseguiQueryAdoDB(ByVal MyQuery As String)
        '************************************************************************
        ' Esegue qualsiasi query passandogli la stringa
        '************************************************************************

Dim Conn As ADODB.Connection = New ADODB.Connection
        Conn.CursorLocation = CursorLocationEnum.adUseServer
        Conn.ConnectionString = TypeConn.ConnectionString
        Try
            Conn.Open()

Stringa = MyQuery
            Conn.Execute(Stringa)

Conn.Close()
            Conn = Nothing

Catch ex As Exception
            Debug.Print(ex.Message & " - " & MyQuery)
        End Try

End Sub

Dim adoConn As ADODB.Connection = New ADODB.Connection()
' adoConn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & TypeConn.PathDataBase & ";Jet OLEDB:Database PassWord=xxxxxxxxxx;", "", -1)

adoConn.Open((TypeConn.ConnectionString))
'Dim sql As String = "DELETE Scadenzario.Mese, Scadenzario.TipoPagamento, Scadenzario.Anno FROM (Scadenzario) WHERE (((Scadenzario.Mese)='" & ComboBox2.Text & "') AND ((Scadenzario.Anno)=" & TextBox2.Text & "));"

Dim sql As String = "DELETE Fatturazione.Mese, Fatturazione.Gestione FROM Fatturazione WHERE (((Fatturazione.Mese)='" & ComboBox2.Text & "') AND ((Fatturazione.Gestione)=" & TextBox2.Text & "));"
adoConn.Execute(sql)

MsgBox("Tutte le Fatture con mese " & ComboBox2.Text & " anno " & TextBox2.Text & vbCrLf & _
"sono state cancellate", MsgBoxStyle.Information, "OK")

'*****************************************************************************************************

Public Sub EseguiQueryAdoDB(ByVal MyQuery As String)
'************************************************************************

' Esegue qualsiasi query passandogli la stringa

'************************************************************************

Dim Conn As ADODB.Connection = New ADODB.Connection
Conn.CursorLocation = CursorLocationEnum.adUseServer
Conn.ConnectionString = TypeConn.ConnectionString
Try
Conn.Open()

Stringa = MyQuery
Conn.Execute(Stringa)

Conn.Close()
Conn = Nothing

Catch ex As Exception
Debug.Print(ex.Message & " - " & MyQuery)
End Try

End Sub