How to create a case sensitive login form using VB.NET and MS access?

See more:

VB

MS-Access

I am creating a login form but it is not case sensitive. Please send help.

What I have tried:

Imports System.Data.OleDb
Imports System.Data


Public Class Login

Dim con As New OleDbConnection


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

con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\Jeoffer\Desktop\Attendance\Attendance.accdb"
con.Open()
Dim logincmd As OleDbCommand = New OleDbCommand("Select * from Login where [User]='" & TextBox1.Text & "') and [Pass]='" & TextBox2.Text & "'", con)
Dim loginrd As OleDbDataReader = logincmd.ExecuteReader

If (loginrd.Read() = True) Then

Form1.Show()
Me.Hide()
con.close()

Else
MsgBox("Login failed!", MsgBoxStyle.Exclamation)
con.Close()