Private Sub useradd_Click() Dim cmd as New ADODB.Command cmd.ActiveConnection = con cmd.CommandText = "insert into userlist(emp_id,first_name,last_name,username,password,usertype) values(" & empid.Text & ",'" & fn.Text & "','" & ln.Text & "','" & un.Text & "','" & pwd.Text & "','" & usertype.Text & "');" 'On Error GoTo errlbl cmd.Execute MsgBox "User Created Successfully", vbInformation Exit Sub 'errlbl: 'MsgBox "Error : " & Err.Number & Err.Description, vbCritical End Sub
cmd.CommandText
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)