谁帮我写一个AC数据库查询的函数
我写的总是不能多次查询，第二次使用这个函数时，会出现错误
Private Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ymwww\ymwww\data\nbac.mdb "
Private connconnection As OleDb.OleDbConnection
Private command As OleDb.OleDbCommand

Public Function SQLcx(ByVal sql As String, ByVal gl As Boolean)


'sql是sql语句，gl临时没用

command = New OleDb.OleDbCommand(sql, connconnection)

Dim reader As OleDb.OleDbDataReader = command.ExecuteReader
reader.read()
Return reader
reader.Close()
connconnection.Close()

' connconnection = Nothing
' command = Nothing
' reader = Nothing
sql = Nothing
End Function

帮忙改改，能多次查询，这个函数第二次查询的时候就会出现：
已有打开的与此连接相关联的 DataReader，必须首先将它关闭。


[解决办法]

command = New OleDb.OleDbCommand(sql, connconnection)
Dim reader As OleDb.OleDbDataReader = command.ExecuteReader
reader.Read()
Dim fh = reader
reader.Close()
Return fh
我这样，就会出现 不存在此行/列的数据。 错误

我不会VB,不过这句是不是就是一个装箱的过程?Dim fh = reader?
你把箱子里的东西关了,所以就传不过去了