Dear Friends,


i am having problem with Private Sub save_Click() module,

error : variable not found


help me please

thanks,




Code:
Option Explicit
Public WithEvents Cn As ADODB.Connection
Public WithEvents rsRecordSet As ADODB.Recordset
Public WithEvents rsRecordSet2 As ADODB.Recordset
Public WithEvents rstempcode As ADODB.Recordset

Private Sub cancel_Click()
Go.Enabled = True
save.Enabled = False
cancel.Enabled = False
Go.SetFocus
End Sub

Private Sub Go_Click()
Go.Enabled = False
cancel.Enabled = True
save.Enabled = True

Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
    
  
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= C:\SCN-ACCESS\SCN-2.mdb"

Set rsRecordSet = New ADODB.Recordset
 rsRecordSet.CursorType = adOpenDynamic

rsRecordSet.Open "SELECT * From SCN where  ReferenceNo = " & refno.Text, Cn, adUseClient




If rsRecordSet.RecordCount = 1 Then

ref_long.Text = rsRecordSet!Reference_Long
rem_name.Text = rsRecordSet!rem_name
ben_name.Text = rsRecordSet!ben_name
ben_add.Text = rsRecordSet!Ben_address & ""
rem_date.Text = Format(rsRecordSet!Transactiondate, "dd-mmm-yy")
amt.Text = Format(rsRecordSet!amount, "#,###,###,###,###")
CNIC.Text = rsRecordSet!ben_cnic & ""
reim_date.Text = Format(rsRecordSet!reim_date, "dd-mmm-yy") & ""
pay_date.Text = Format(rsRecordSet!pay_date, "dd-mmm-yy") & ""
bcode.Text = rsRecordSet!branchcode & ""

Else
 
 
 
rem_name.Text = ""
ben_name.Text = ""
ben_add.Text = ""
rem_date.Text = ""
amt.Text = ""
CNIC.Text = ""
reim_date.Text = ""
pay_date.Text = ""
bcode.Text = ""
    MsgBox "No Record Found"


End If

   
End Sub

Private Sub Quit_Click()
End
End Sub

Private Sub save_Click()

rsRecordSet.Update pay_date, pay_date.Text
rsRecordSet.Update Ben_address, ben_add.Text
rsRecordSet.Update ben_cnic, CNIC.Text
rsRecordSet.Update branchcode, bcode.Text
rsRecordSet.Update reim_date, reim_date.Text
If pay_date.Text = "" Then
rsRecordSet.Update Status, "Paid"
Else
rsRecordSet.Update Status, "unPaid"
End If


MsgBox "Saved!"
End Sub