Execute Query from VBA

DBAccess.cls

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset


Public Function Connect(ServerName As String, DBName As String, UserId As String, Password As String)
    Dim connectionString As String
    
    connectionString = "Provider=SQLOLEDB;" & _
             "Data Source=" & ServerName & ";" & _
             "Initial Catalog=" & DBName
            
    cnn.Open connectionString, userid, password
    cmd.ActiveConnection = cnn
End Function


Public Function Disconnect()
    
    cnn.Close

    Set cmd = Nothing
    Set cnn = Nothing
    
End Function

Public Function ExecuteQuery(Query As String)
    cmd.CommandText = Query
    cmd.Execute
End Function