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