那位大侠能告诉我，这段代码为什么执行没反映

Dim cnn As cnn
    Dim cmd As Command
    Dim rs As Recordset
    Dim sqlstr As String
    
    Set cnn = New Connection
    Set cmd = New Command
    Set rs = New Recordset
    
    cnn.ConnectionString = "Provider=MSDASQL.1;Password=data;Persist Security Info=True;User ID=sa;Data Source=AMMICPRO-ODBC;Initial Catalog=XJDEMO"
    
    cnn.Open
    
    
    cmd.ActiveConnection = cnn
    
    sqlstr = "select fitemno from itemm"
    cmd.CommandText = sqlstr
    Set rs = cmd.Execute
    
    cbofitem.Clear
    Dim i As Long
    If Not rs.EOF Then
        For i = 1 To rs.RecordCount
            cbofitem.AddItem rs!fitemno
            rs.MoveNext
        Next i
    End If
    
    rs.Close
    Set rs = Nothing
**************************************************************代码执行后没有反应,但是如果把该代码    cnn.ConnectionString = "Provider=MSDASQL.1;Password=data;Persist Security Info=True;User ID=sa;Data Source=AMMICPRO-ODBC;Initial Catalog=XJDEMO"
    
    cnn.Open替换成已有的连接则是正常的，谢谢！