Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from BaseUser where UserID='" & Text1.Text & "'", Cnn1, adOpenDynamic, adLockOptimistic
rs1.Fields("Password").Value = Text3.Text
rs1.closers1.Open "select * from BaseUser where UserID='" & Text1.Text & "'", Cnn1, adOpenDynamic, adLockOptimistic rs1.Fields(0) = Text1.Text
rs1.Fields(1) = Text2.Text
rs1.Fields(3) = Text5.Text
rs1.Fields(2) = Combo1.SelText
rs1.Update
rs1.close
rs1.CursorLocation = adUseClient
rs1.Open "select * from BaseUser where UserID='" & Text1.Text & "'", Cnn1, adOpenDynamic, adLockOptimistic
rs1.Fields("Password").Value = Text3.Text
rs1.closers1.Open "select * from BaseUser where UserID='" & Text1.Text & "'", Cnn1, adOpenDynamic, adLockOptimistic rs1.Fields(0) = Text1.Text
rs1.Fields(1) = Text2.Text
rs1.Fields(3) = Text5.Text
rs1.Fields(2) = Combo1.SelText
rs1.Update
rs1.close
有空到qq上找我
10880084
谢谢