عزیز هیچ راهی نداره وقتی شما Open RS کنید تا اونجایی که اطلاع دارم اینجا برات یک کلاس میزارم با اون کار کنید راحت میشید.
'***********************************************
'***********************************************
'***********************************************
' GPC DB Engine
' Created By Mehdi Torshani
' Mohammad Mazinani
'***********************************************
'***********************************************
'***********************************************
Public DBConect As New ADODB.Connection 'Data Base Conetion
Public DBCmd As New ADODB.Command 'Data Base Command
Public DBRecord As New ADODB.Recordset 'Data Base RecordSet
'Active Conection TO Data Base
Public Sub CreatConectionDB()
DBConect.Open JetAcc
DBCmd.ActiveConnection = DBConect
DBCmd.CommandType = adCmdTable
End Sub
'Execute Paramet for DataBase
Public Sub RecDB(StrSql As String)
Open "c:\1.txt" For Output As #1
Print #1, StrSql
Close #1
DBConect.Execute (StrSql)
End Sub
'Open Record Set
Public Function OpenRS(StrRS As String) As Recordset
DBRecord.Open StrRS, DBConect, adOpenDynamic, adLockBatchOptimistic
On Error Resume Next
DBRecord.MoveFirst
Set OpenRS = DBRecord
End Function
Public Sub CloseRec()
DBRecord.Close
End Sub
'Close Conection
Public Sub CloseConection()
DBConect.Close
End Sub