Public Function Con() AS ADODB.recordset
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\edu.mdb;Persist Security Info=False"
End Function
请问怎样才能返回一个Recordset,或database
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\edu.mdb;Persist Security Info=False"
End Function
请问怎样才能返回一个Recordset,或database
set rst=con.execute(SQL语句)