Private Sub BtnRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles BtnRegistrar.Click
        Dim conn As New SqlClient.SqlConnection
        Dim comando As New SqlClient.SqlCommand
        Dim reg As Integer
        conn.ConnectionString = My.Settings.LocadoraConnectionString
        If TxtUsuario.Text =    Then
            MessageBox.Show( Informe um valor válido. )
            TxtUsuario.Focus()
            Exit Sub
        End If
        If TxtSenha.Text =    Then
            MessageBox.Show( Informe um valor válido. )
            TxtSenha.Focus()
            Exit Sub
        End If
        If Not TxtSenha.Text.Equals(TxtSenha2.Text) Then
            MessageBox.Show( A senha não confere. )
            TxtSenha2.Focus()
            Exit Sub
        End If
        Try
            conn.Open()
            comando.Connection = conn
            comando.CommandText =  INSERT INTO Usuarios(nomeUsuario,senhaID) values(@Usuario,@senha)
            comando.Parameters.AddWithValue( @Usuario , TxtUsuario.Text)
            comando.Parameters.AddWithValue( @senha , util.GeraHash(TxtSenha.Text))
            reg = comando.ExecuteNonQuery()
            MessageBox.Show(reg.ToString +   registro de Usuário incluido com sucesso. )
        Catch ex As SqlClient.SqlException
            MessageBox.Show( Erro ao efetuar a conexão com a base de dados :   + ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try
    End Sub