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...