Private Sub cmdAddSave_Click() Dim rs As New ADODB.Recordset rs.Open "Select * From UserAccount", Conn, 3, 3 With rs rs.AddNew rs!UserName = txtUserName.Text rs!LastName = txtLastName.Text rs!FirstName = txtFirstName.Text rs!MiddleName = txtMiddleInitial.Text rs!Age = txtAge.Text rs!Gender = cboGender.Text rs!Password = txtPassword.Text rs.Update MsgBox "New User Account Successfully Sav" ed", vbInformation + vbOKOnly, "User Name" End With Set rs = Nothing End Sub
it's a great help...
thank you...

New Topic/Question
Reply



MultiQuote





|