Imports System.Data
Imports System.Data.OleDb
Imports System.Configuration
Partial Class Default6
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnRegister_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRegister.Click
If Page.IsValid Then
registerUser()
lblMessage.Text = "You have registered successfully"
End If
End Sub
Protected Sub registerUser()
Dim myConn As New OleDbConnection
Dim myCmd As New OleDbCommand
myConn.ConnectionString = _
ConfigurationManager.ConnectionStrings("AngelicBabyConnectionString").ConnectionString
Dim cmd As String
cmd = "Insert into Customers values (@userid, @password, @firstName, @lastName, "
cmd = cmd & "@gender, @nric, @birthday, @contact, @address, @email)"
myCmd.CommandText = cmd
myCmd.CommandType = CommandType.Text
myCmd.Parameters.Add(New OleDbParameter("@userid", txtUser.Text))
myCmd.Parameters.Add(New OleDbParameter("@password", txtPassword.Text))
myCmd.Parameters.Add(New OleDbParameter("@firstName", txtFirstName.Text))
myCmd.Parameters.Add(New OleDbParameter("@lastName", txtLastName.Text))
myCmd.Parameters.Add(New OleDbParameter("@gender", radGender.SelectedValue))
myCmd.Parameters.Add(New OleDbParameter("@nric", txtNRIC.Text))
myCmd.Parameters.Add(New OleDbParameter("@birthday", DDLDay.SelectedItem))
myCmd.Parameters.Add(New OleDbParameter("@contact", txtContact.Text))
myCmd.Parameters.Add(New OleDbParameter("@address", txtAddress.Text))
myCmd.Parameters.Add(New OleDbParameter("@email", txtEmail.Text))


myCmd.Connection = myConn
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
myCmd.Dispose()
myConn.Dispose()
End Sub
Protected Sub AccessDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles AccessDataSource1.Selecting
End Sub
End Class


what's wrong with the code?

Imports System.Data
Imports System.Data.OleDb
Imports System.Configuration
Partial Class Default6
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnRegister_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRegister.Click
If Page.IsValid Then
registerUser()
lblMessage.Text = "You have registered successfully"
End If
End Sub
Protected Sub registerUser()
Dim myConn As New OleDbConnection
Dim myCmd As New OleDbCommand
myConn.ConnectionString = _
ConfigurationManager.ConnectionStrings("AngelicBabyConnectionString").ConnectionString
Dim cmd As String
cmd = "Insert into Customers values (@userid, @password, @firstName, @lastName, "
cmd = cmd & "@gender, @nric, @birthday, @contact, @address, @email)"
myCmd.CommandText = cmd
myCmd.CommandType = CommandType.Text
myCmd.Parameters.Add(New OleDbParameter("@userid", txtUser.Text))
myCmd.Parameters.Add(New OleDbParameter("@password", txtPassword.Text))
myCmd.Parameters.Add(New OleDbParameter("@firstName", txtFirstName.Text))
myCmd.Parameters.Add(New OleDbParameter("@lastName", txtLastName.Text))
myCmd.Parameters.Add(New OleDbParameter("@gender", radGender.SelectedValue))
myCmd.Parameters.Add(New OleDbParameter("@nric", txtNRIC.Text))
myCmd.Parameters.Add(New OleDbParameter("@birthday", DDLDay.SelectedItem))
myCmd.Parameters.Add(New OleDbParameter("@contact", txtContact.Text))
myCmd.Parameters.Add(New OleDbParameter("@address", txtAddress.Text))
myCmd.Parameters.Add(New OleDbParameter("@email", txtEmail.Text))


myCmd.Connection = myConn
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
myCmd.Dispose()
myConn.Dispose()
End Sub
Protected Sub AccessDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles AccessDataSource1.Selecting
End Sub
End Class


what's wrong with the code?