ss="select name from student "
 With Adodc1
        .ConnectionString = conn
        .CommandType = adCmdText
        .RecordSource = ss
        .Refresh
        .Caption = .Recordset(0).Name
    End With

解决方案 »

  1.   

    Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        conn.ConnectionString = "这里是你的连接串"
        conn.Open
        strsql = "select * from T_user"
        rs.Open strsql, conn, adOpenStatic, adLockReadOnly
        Do While rs.EOF = False
            MsgBox(rs.Fields("name").Value)
            rs.MoveNext
        Loop
      

  2.   

    Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        conn.ConnectionString = "这里是你的连接串"
        conn.Open
        strsql = "select * from T_user"
        rs.Open strsql, conn, adOpenStatic, adLockReadOnly
        Do While rs.EOF = False
            MsgBox(rs.Fields("name").Value)
            rs.MoveNext
        Loop
    赞同: dinya2003(OK)的