How I Can Improve My Code For The Registration Form

See more:

VB

hi, currently doing an approval system. my problem is registration code and login code are didn't working. i need you help to solve this problem. im using oracle sql developer database. please someone kindly help me to solve this problem. below is the code for registration form:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Net.Mail
Imports System.Net


Partial Class Register
    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 create_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim dv As Data.DataView
        dv = DataSource1.Select(DataSourceSelectArguments.Empty)

        Dim UserId As Integer = 0
        Dim connectionString As String = oledbConnectionStringBuilder()
        Dim connection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        Dim con As OleDbConnection

        Using cmd As New OleDbCommand("Insert_User")
            Using sda As New OleDbDataAdapter
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.AddWithValue("@Username", txtUsername)
                cmd.Parameters.AddWithValue("@Password", txtPassword)
                cmd.Parameters.AddWithValue("@Email", txtEmail)

                cmd.Connection = con
                con.Open()
                UserId = Convert.ToInt32(cmd.ExecuteScalar())
                con.Close()


            End Using
        End Using

        Dim message As String = String.Empty
        Select Case UserId

            Case -1
                message = "Username already exists.\nPlease choose a different Username."

                Exit Select

            Case -2
                message = "Supplied email address has already been used."

                Exit Select

            Case Else
                message = "Registration successful.
                Exit Select

        End Select
        ClientScript.RegisterStartupScript([GetType](), "alert", (Convert.ToString("alert('") & message) + "');", True)
    End Sub

  Private Function oledbConnectionStringBuilder() As String
        Throw New NotImplementedException
    End Function




End Class

pls help me.. thank you very much