Private Sub Command10_Click()
Dim rs10 As New ADODB.Recordset
Dim rs20 As New ADODB.Recordset
Dim rs30 As New ADODB.Recordset
Dim rs40 As New ADODB.Recordset
'------------------------------------------
Dim rstem1 As New ADODB.Recordset
Dim rstem2 As New ADODB.Recordset
Dim rstem3 As New ADODB.Recordset
'------------------------------------------
rstem1.CursorLocation = adUseClient
rstem1.Open "credits", cn, adOpenDynamic
rstem1.MoveFirst
rstem1.Find "number='" + Text2.Text + "'"
If rstem1.EOF = True Then
GoTo 1
End If
If rstem1("status") = True Then
MsgBox "E? E?I?? C?E?C?CE ?? ?E?", vbInformation, "???C"
Command10.Enabled = False
Command3.Enabled = True
rstem1.Close
Exit Sub
End If
'--------
1 rstem2.CursorLocation = adUseClient
rstem2.Open "debits", cn, adOpenDynamic
rstem2.MoveFirst
rstem2.Find "number'" + Text2.Text + "'"
If rstem2.EOF = True Then
GoTo 2
End If
If rstem2("status") = True Then
MsgBox "E? E?I?? C?E?C?CE ?? ?E?", vbInformation, "???C"
Command10.Enabled = False
Command3.Enabled = True
Exit Sub
End If
'----------
2 rstem3.CursorLocation = adUseClient
rstem3.Open "refuse", cn, adOpenDynamic
rstem3.MoveFirst
rstem3.Find "number='" + Text2.Text + "'"
If rstem3.EOF = True Then
GoTo 20
End If
If rstem3("status") = True Then
MsgBox "E? E?I?? C?E?C?CE ?? ?E?", vbInformation, "???C"
Command10.Enabled = False
Command3.Enabled = True
Exit Sub
End If

'-------------------------------------------
20 rs20.CursorLocation = adUseClient
rs20.LockType = adLockOptimistic
rs10.Open "exports", cn, adOpenDynamic
rs20.Open "credits", cn, adOpenDynamic
rs20.Find "number='" + Text2.Text + "'"
 rs20.AddNew
rs10.MoveFirst
rs10.Find "number='" + Text2.Text + "'"
 If Option3.Value = True Then
rs20("name") = rs10("name")
rs20("num") = rs10("num")
rs20("kind") = rs10("kind")
rs20("money") = rs10("money")
rs20("draw") = rs10("draw")
rs20("tdate") = rs10("tdate")
rs20("crdate") = d3.Value
rs20("city") = rs10("city")
rs20("number") = rs10("number")
rs20("status") = True
rs20.Update
MsgBox "E? C???I?? E??C? ??C?? C?E?I?E ?????CE"
Command10.Enabled = False
Command3.Enabled = True
End If
rs30.CursorLocation = adUseClient
rs30.LockType = adLockOptimistic
rs30.Open "debits", cn, adOpenDynamic
rs30.Find "number='" + Text2.Text + "'"
rs30.AddNew
If Option4.Value = True Then
rs30("name") = rs10("name")
rs30("num") = rs10("num")
rs30("kind") = rs10("kind")
rs30("money") = rs10("money")
rs30("draw") = rs10("draw")
rs30("tdate") = rs10("tdate")
rs30("city") = rs10("city")
rs30("number") = rs10("number")
rs30("status") = True
rs30.Update
MsgBox "E? C???I?? E??C? ??C?? C?E?I?E ?????CE"
Command10.Enabled = False
Command3.Enabled = True
End If
rs40.CursorLocation = adUseClient
rs40.LockType = adLockOptimistic
rs40.Open "refuse", cn, adOpenDynamic
rs40.Find "number='" + Text2.Text + "'"
rs40.AddNew
If Option5.Value = True Then
rs40("name") = rs10("name")
rs40("num") = rs10("num")
rs40("kind") = rs10("kind")
rs40("money") = rs10("money")
rs40("draw") = rs10("draw")
rs40("tdate") = rs10("tdate")
rs40("rfdate") = d3.Value
rs40("city") = rs10("city")
rs40("number") = rs10("number")
rs40("status") = True
rs40.Update
MsgBox "E? C???I?? E??C? ??C?? C?E?I?E ?????CE"
Command10.Enabled = False
Command3.Enabled = True
End If
Exit Sub