Private Sub Command2_Click()
Dim a As String, b As String, c As String, i As Integer, n As String
a = Year(Now)
b = Month(Now)
c = Day(Now)
tc.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/vb.mdb;Persist Security Info=False")
sql = "select * from 支付宝用户信息 where 账号='" & name1 & "'"
ac.CursorLocation = adUseClient
ac.Open sql, tc, adOpenDynamic, adLockOptimistic
Text1.Text = Text1.Text & vbCrLf & a & "-" & b & "-" & c & " " & " " & Time & " " & "+" & Form9.Text2 & " " & ac.Fields(1)
ac.Fields("充值记录") = Text1.Text
ac.Update
tc.Close
End Sub