VB .Net - Sistema de Login

Estrutura do banco de dados

Imports System.Data.OleDb

Public Class Form1

    Private Sub Conexao()

        Dim conexao As New OleDbConnection

        Dim comandos As New OleDbCommand

        Dim consulta As OleDbDataReader

        

        'Em seu computador mude a string de conexão para que possa funcionar

        conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; DATA SOURCE=G:\Projetos Visual Studio\Sistema de login\Sistema de login\Banco de dados.accdb;"

        comandos.CommandText = "SELECT * from Usuários where nome='" + txtNome.Text + "'And senha='" + txtSenha.Text + "'"

        conexao.Open()

        comandos.Connection = conexao

        consulta = comandos.ExecuteReader()

        If (consulta.HasRows) Then

            frmPrincipal.Show()

        Else

            MsgBox("Nome ou Senha não conferem.", MsgBoxStyle.Critical, "Sistema de Login")

            Me.txtNome.Text = ""

            Me.txtSenha.Text = ""

            Me.txtNome.Focus()

            Exit Sub

        End If

        conexao.Close()

        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Conexao()

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        Dim Pergunta As Integer

        Pergunta = MsgBox("Tem certeza que deseja encerrar a aplicação?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If Pergunta = vbYes Then

            End

        End If

    End Sub

End Class

 Espero ter ajudado, até mais, abraços!