รบกวนช่วยดูโค้ดให้หน่อยได้ไหมคะ เป็นโค้ดLogin คะ เชื่อมกับฐานข้อมูล

 Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

        Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Users\PigsY\Desktop\VB\Data base\Login\Login.mdb"

        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
            .Close()
        End With
        If txtUser.Text = "" Then
            MessageBox.Show("ใส่ข้อมูล", "No UserID", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ReadMyData(Cnnstring)
        End If
    End Sub

    Public Sub ReadMyData(ByVal myConnString As String)
        On Error GoTo 0
        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
        End With
        SqlSelect = "select * from Table1 Where User = " & "'" & txtUser.Text & "'"
        Dim OleCommand As New OleDbCommand(SqlSelect, Cnn)
        OleReader = OleCommand.ExecuteReader
        OleReader.Read()
        UserIDA = OleReader.Item("User")
        PassIDA = OleReader.Item("Pass")
        Cnn.Close()
        If txtUser.Text = UserIDA And txtPassword.Text = PassIDA Then
            Home.Show()
            txtUser.Text = ""
            txtPassword.Text = ""
            Me.Hide()
        Else
            MessageBox.Show("UserName or Password Incorrect", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
    End Sub