ExecuteQuery from VBA

Sheet1.cls

Private Sub CommandButton1_Click()
    Dim TestDB As New dbaccess
    Dim host As String: host = "192.168.0.1"
    Dim db As String: db = "TestDB"
    Dim userid As String: userid = "sa"
    Dim password As String: password = "mypassword"
    
    Call TestDB.Connect(host, db, userid, password)
    
    Call TestDB.ExecuteQuery("")
    
    Call TestDB.Disconnect
    
    Set TestDB = Nothing
End Sub