Private Sub RunQuery(c As String, q As String)

Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

On Error Resume Next
   
Set cn = New ADODB.Connection
cn.ConnectionString = c
cn.Open
If Err.Number <>  0  Then
   MsgBox "Connection error: " & Err.Description
   Exit Sub
   
End If
   
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandText = q
cmd.CommandType = adCmdText

Set rs = New ADODB.Recordset
Set rs.Source = cmd

cn.Errors.Clear
rs.Open

If Err.Number =  0  Then
   CopyRows rs
   
Else
   MsgBox "Query error: " & Err.Description
   
End If

rs.Close
cn.Close

End Sub