Login Form Using Visual Basic 2010 with Embbeded database Microsoft Access Tutorial

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim con As New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\datastorage.mdb;")
	Dim cmd As OleDbCommand = New OleDbCommand( _
	"SELECT * FROM logininfo WHERE Username = '" & _
	TextBox1.Text & "' AND [Password] = '" & txtPassword.Text & "' ", con)
 
	con.Open()
 
	Dim sdr As OleDbDataReader = cmd.ExecuteReader()
 
	If (sdr.Read() = True) Then
		MessageBox.Show("You are Now Logged In")
		frm1.Show()
		TextBox1.Focus()
		TextBox1.Clear()
		txtPassword.Clear()
 
		Me.Hide()
	Else
		MessageBox.Show("Invalid Username or Password!")
	End If
End Sub

If MsgBox("Do you want to exit?", vbYesNo + vbQuestion) = vbYes Then
	Application.Exit()
End If
 
Code for show password check box:
 
<vbnet>
If CheckBox1.Checked = True Then
	txtPassword.PasswordChar =""
Else
	txtPassword.PasswordChar = "•"
End If