怪问题，请进...

Question

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim TempN As Long, TempAll As Long, oldmail As String
    Dim sql As String
    conn.ConnectionString = "uid=admin;pwd=;driver={Microsoft access _
    driver (*.mdb)};dbq=XXX.mdb"
    sql = "select * from email order by mail"
    rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic

Answer 1

 
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim TempN As Long, TempAll As Long, oldmail As String
    Dim sql As String
    conn.ConnectionString = "uid=admin;pwd=;driver={Microsoft access _
    driver (*.mdb)};dbq=XXX.mdb"
    conn.open
    sql = "select * from email order by mail"
    rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic