VB+Mssql

Imports System.Data
Imports System.Data.SqlClient
Imports System.Security.Cryptography
Imports System.Text
Public Class Form1
    Dim Connection As New SqlClient.SqlConnection
    Dim Command As New SqlClient.SqlCommand
    Dim Adaptor As New SqlClient.SqlDataAdapter
    Dim Dataset As New DataSet
    'MD5 кодер
    Private Function StringtoMD5(ByVal Content As String) As String
        Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim UnicodeString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        UnicodeString = M5.ComputeHash(UnicodeString)
        Dim FinalString As String = Nothing
        For Each bt As Byte In UnicodeString
            FinalString &= bt.ToString("x2")
        Next
        Return FinalString
    End Function
    Public Sub Connect()
        Connection.ConnectionString = "Data Source=SAMLAB;Initial Catalog=Auth;User ID=sa"
        Try
            Connection.Open()
        Catch ex As Exception
            MsgBox("Нет конекта" + ex.ToString, MsgBoxStyle.Critical)
        End Try
 
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim login As String
        Dim pass As String
        login = "'" & Me.TextBox1.Text & "'"
        pass = "'" & Me.TextBox3.Text & "'"
        If Len(TextBox1.Text) < 5 Or Len(TextBox2.Text) < 5 Then
            MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical)
        Else
            Connect()
            Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';"
            Command.Connection = Connection
            Adaptor.SelectCommand = Command
            Adaptor.Fill(Dataset, "0")
            Dim count = Dataset.Tables(0).Rows.Count
            If count > 0 Then
                MsgBox("Такой логин уже есть", MsgBoxStyle.Critical)
                TextBox1.Clear()
                TextBox2.Clear()
                Connection.Close()
            Else
                TextBox3.Text = StringtoMD5("2011" + TextBox2.Text)
                Dim cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & login & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", Connection)
                cmd.ExecuteNonQuery()
                Connection.Close()
                MsgBox("Вы зарегестрированны")
                TextBox1.Clear()
                TextBox2.Clear()
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub