Sub Test
    Dim cn as ADODB.Connection
    Dim rs as ADODB.Recordset
    Dim strSQL as string

    Set cn = new ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.ConnectionString = "Provider=sqloledb;Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
     
    strSQL = "Select field1,field2,field3 from table1 where field1 = '" & sheets(1).Range("A6").value & "'"
    cn.open
    rs.open strsql,cn,adOpenStatic, adLockBatchOptimistic

    'Dispose & close objects
    rs.close
    rs = Nothing
    cn.close
    cn = nothing
     End Sub