VBA读取SQLserver

Sub ConnectToSQLServer()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    
    ' Create a connection object
    Set conn = CreateObject("ADODB.Connection")
    
    ' Set the connection string
    strConn = "Provider=SQLOLEDB;Data Source=10.0.0.1\test,1366;Initial Catalog=test_DB ;User ID=123;Password=123;"
       conn.Open strConn
    
    ' Create a recordset object
    
    Set rs = CreateObject("ADODB.Recordset")

    ' Build the SQL query
    'strSQL = "SELECT * FROM YourTableName"
    'strSQL = "SELECT count(1) FROM YourTableName WHERE name= '0003'"
    strSQL = Cells(1, 1)
    
    If rs.State = adStateClosed Then
        rs.Open strSQL, conn
        Else