Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data
Public Sub registrate()
        Dim con As New SqlConnection
        con.ConnectionString = ConfigurationManager.ConnectionStrings("(local)").ConnectionString

        Dim comand As New SqlCommand
        comand.CommandType = Data.CommandType.StoredProcedure
        comand.Connection = con
        comand.Parameters.Add("@FirstName", SqlDbType.VarChar, 20, FirstName)
        comand.Parameters.Add("@LastName", SqlDbType.VarChar, 20, LastName)



    End Sub

        comand.CommandType = Data.CommandType.StoredProcedure
        comand.Connection = con
        With comand.Parameters
            .Add("@FirstName", VarChar, 20)
            .Item("@FirstName").Value = FirstName
            .Add("@LastName", VarChar, 20)
            .Item("@LastName").Value = LastName
            .Add("@TelNumber", VarChar, 30)
            .Item("@TelNumber").Value = TelNumber
            .Add("@Email", VarChar, 50)
            .Item("@Email").Value = Email
            .Add("@Skype", VarChar, 50)
            .Item("@Skype").Value = Skype
            .Add("@VK", VarChar, 50)
            .Item("@VK").Value = VK
            .Add("@Password", VarChar, 50)
            .Item("@Password").Value = Password
        End With
        comand.CommandText = "[UserRegistration]"
        con.Open()
        comand.ExecuteNonQuery()
        comand.Dispose()