Please help... error 3705 accur when i call GOupdate
Private Sub GOupdaTe()
Dim rsx1 As New ADODB.Recordset
Dim cn As New ADODB.Connectio n
If rsx1.State <> adStateClosed Then rsx1.Close
If cn.State <> adStateClosed Then cn.Close
Set rsx1 = New ADODB.Recordset
cn.Open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\TPman agement_system\ DB\TP_mdb03.mdb ;Persist Security Info=False"
cn.Mode = adModeReadWrite
rsx1.ActiveConn ection = cn
rsx1.Open "SELECT * FROM zusers"
rsx1!timein = a.Text
rsx1!SQL = b.Text
rsx1!deduction = c.Text
rsx1!payslip = d.Text
rsx1!adrecords = e.Text
rsx1!Edit = F.Text
rsx1!report = g.Text
rsx.Update
rsx.Close
End Sub
-any suggestions is welcome.. thanks in advance
Private Sub GOupdaTe()
Dim rsx1 As New ADODB.Recordset
Dim cn As New ADODB.Connectio n
If rsx1.State <> adStateClosed Then rsx1.Close
If cn.State <> adStateClosed Then cn.Close
Set rsx1 = New ADODB.Recordset
cn.Open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\TPman agement_system\ DB\TP_mdb03.mdb ;Persist Security Info=False"
cn.Mode = adModeReadWrite
rsx1.ActiveConn ection = cn
rsx1.Open "SELECT * FROM zusers"
rsx1!timein = a.Text
rsx1!SQL = b.Text
rsx1!deduction = c.Text
rsx1!payslip = d.Text
rsx1!adrecords = e.Text
rsx1!Edit = F.Text
rsx1!report = g.Text
rsx.Update
rsx.Close
End Sub
-any suggestions is welcome.. thanks in advance
Comment