Private Sub Button_Reg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Reg.Click
        Dim Err As String = ""
        Dim Cs As String = DBClass.CnString(Server.MapPath("tennis.mdb"))
        Dim Connection As New OleDbConnection(Cs)
        Dim Exc As OleDbException
        Dim Cm As New OleDbCommand
        Try
                'проверим нет ли уже такого пользователя в базе по логину
                Connection.Open()
                Dim Gender As String = "1"
                If RBFemale.Checked Then Gender = "0"
                Dim Age As String = "0"
                Dim UID As String = System.Guid.NewGuid.ToString
                If TAge.Text <> "" Then Age = TAge.Text
                Cm.CommandText = "insert into players " & _
                       "(Login, Password, RegDate, " & _
                       "Email, FirstName, LastName, Patronymic, StationId, " & _
                       "Age, ICQ, Gender, Range, Foto, Active, Admin, UID) " & _
                       " values (""" & TLogin.Text & """, """ & TPass.Text & _
                              """, #" & System.DateTime.Today.ToString() & "#, """ & _
                              TEmail.Text & """, """ & TFirstName.Text & """, """ & _
                              TLastName.Text & """, """ & TPatronimic.Text & """, " & _
                              DLMetro.SelectedValue & ", " & Age & ", """ & _
                              TICQ.Text & """," & Gender & ", " & DLRanges.SelectedValue & _
                              ","""", 0, 0,""" & UID & """)"
                    Cm.ExecuteNonQuery()
                End If
            Catch Ex As OleDbException
                Dim i As Integer
                For i =  0  To Ex.Errors.Count -  1 
                    Err += "Index #" & i.ToString() & ControlChars.Cr _
                                   & "Message: " & Ex.Errors(i).Message & ControlChars.Cr _
                                   & "NativeError: " & Ex.Errors(i).NativeError & ControlChars.Cr _
                                   & "Source: " & Ex.Errors(i).Source & ControlChars.Cr _
                                   & "SQLState: " & Ex.Errors(i).SQLState & ControlChars.Cr
                Next i
            Finally
                If Connection.State = ConnectionState.Open Then Connection.Close()
                ErrTextBox.Text = Err + "   " + Cm.CommandText
                ErrTextBox.Visible = True
            End Try