也可以Set yourRecordSet=New Adodb.Recordset,再Open

解决方案 »

  1.   

    dim rst as adodb.recordset
    dim sqlrst as string
    sqlrst="select * from table1"
    rst.open sqlrst,........
    do something
    rst.close
    sqlrst="select * from table2"
    rst.open sqlrst........
    do something
    rst.close
    set rst=nothing
      

  2.   

    如果只是Rs.Close ,而不是 Cnn.Close 或 Set Cnn = Nothing 之类的销毁对象,
    那么 你可以只修改一下 : 
    Dim Cnn As New ADODB.Connection
    Dim Cmd As New ADODB.Command
    Dim Rs As New ADODB.Recordset'Cnn.Connectstring= ......
    Cnn.open 
    'Cmd ....
    Cmd.CommandType = adCmdUnkown
    Cmd.CommandText = "Table1"
    Rs.Open 
    '......
    Rs.Close
    Cmd.CommandText = "Select * From Table2"
    Rs.Open .........'就行了
      

  3.   

    谢谢各位的帮忙。我的问题已经解决了。我的想法和  dtwujp(建平.net) 的一样。所以只要每次用完之后close掉就可以了。第二次在重新打开。command对象怎么用?现在还不会。我要看看了。