my code is
Partial Class _Default
Inherits System.Web.UI.Page
Function InsertUser(ByVal NewUserName As String, ByVal NewPassword As String, ByVal NewConfirmPassword As String, ByVal NewEmail As String, ByVal NewSecurityQuestion As String, ByVal NewSecretAnswer As String) As Integer
Dim connectionString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; " & _
" Data Source=C:\Documents and Settings\Compaq_Owner\Desktop\user.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim querystring As String = "INSERT INTO [tblUser] (UserName, Password, ConfirmPassword, Email, SecurityQuestion, SecretAnswer) " & _
"values (@UserName, @Password, @ConfirmPassword, @Email, @SecurityQuestion, @SecretAnswer)"
Dim cmd As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
cmd.CommandText = querystring
cmd.Connection = dbConnection
Dim dbParam1 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam1.ParameterName = "@UserName"
dbParam1.Value = NewUserName
dbParam1.DbType = System.Data.DbType.String
cmd.Parameters.Add(dbParam1)
Dim dbParam2 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam2.ParameterName = "@Password"
dbParam2.Value = NewPassword
dbParam2.DbType = System.Data.DbType.String
cmd.Parameters.Add(dbParam2)
Dim dbParam3 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam3.ParameterName = "@ConfirmPassword"
dbParam3.Value = NewConfirmPassword
dbParam3.DbType = System.Data.DbType.String
cmd.Parameters.Add(dbParam3)
Dim dbParam4 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam4.ParameterName = "@Email"
dbParam4.Value = NewEmail
dbParam4.DbType = System.Data.DbType.String
cmd.Parameters.Add(dbParam4)
Dim dbParam5 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam5.ParameterName = "@SecurityQuestion"
dbParam5.Value = NewSecurityQuestion
dbParam5.DbType = System.Data.DbType.String
cmd.Parameters.Add(dbParam5)
Dim dbParam6 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam6.ParameterName = "@SecurityAnswer"
dbParam6.Value = NewSecretAnswer
dbParam6.DbType = System.Data.DbType.String
cmd.Parameters.Add(dbParam6)
Dim rowsaffected As Integer = 0
dbConnection.Open()
Try
rowsaffected = cmd.ExecuteNonQuery()
Catch
rowsaffected = -1
Finally
dbConnection.Close()
End Try
Return rowsaffected
End Function
Protected Sub cmdCreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
Dim returnvalue As Integer
returnvalue = InsertUser(txtUserName.Text, txtPassword.Text, txtConfirmPassword.Text, txtEmail.Text, txtSecurityQuestion.Text, txtSecretAnswer.Text)
If returnvalue >= 1 Then
MsgBox("That User Name is already taken, try another!", MsgBoxStyle.Information)
End If
txtUserName.Text = ""
txtPassword.Text = ""
txtConfirmPassword.Text = ""
txtEmail.Text = ""
txtSecurityQuestion.Text = ""
txtSecretAnswer.Text = ""
GridView1.DataBind()
MsgBox("Welcome Self Build", MsgBoxStyle.Information)
End Sub
End Class
but the user details just do not add to the database!