Private Sub Command1_Click() Set cmd = New ADODB.Command Set rs1 = New ADODB.Recordset cmd.ActiveConnection = mConn cmd.CommandText = "insert_users" cmd.CommandType = adCmdStoredProc Set param = cmd.CreateParameter("truename", adChar, adParamInput, 20, Trim(txttruename.Text)) cmd.Parameters.Append param Set param = cmd.CreateParameter("regname", adChar, adParamInput, 20, Trim(txtregname.Text)) cmd.Parameters.Append param Set param = cmd.CreateParameter("pwd", adChar, adParamInput, 20, Trim(txtpwd.Text)) cmd.Parameters.Append param Set param = cmd.CreateParameter("sex", adChar, adParamInput, 20, Trim(txtsex.Text)) cmd.Parameters.Append param Set param = cmd.CreateParameter("email", adChar, adParamInput, 20, Trim(txtemail.Text)) cmd.Parameters.Append param |