visual basic login system

[Katlego_1]

hello i am new to the coding world and i am trying to get this login code to only accept the names and passwords in the access database, current any can login. please assist

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.DataTable
Public Class Form1

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Katlego\Documents\logindb.accdb")
    Dim cmd As New OleDbCommand("select * from logintable where user1=@user1 and pass1=@pass1", conn)
    cmd.Parameters.Add("@user1", OleDbType.VarChar).Value = txtUsername.Text
    cmd.Parameters.Add("@user1", OleDbType.VarChar).Value = txtPassword.Text
    Dim adapter1 As New OleDbDataAdapter(cmd)
    Dim logintable As New DataTable
    adapter1.Fill(logintable)
    If logintable.Rows.Count <=
        0 Then
        MsgBox("error username or password")
    Else
        MsgBox("login successfull")
    End If
End Sub

Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
    Me.Close()
End Sub

End Class

[pritaeas]

On line 5 change @user1 to @pass1

[rproffitt]

Any professor or teacher that thinks this is OK needs to move forward many decades.

Never store clear text passwords in a database

So many articles out there on this such as https://medium.com/maclaurin-group/what-is-clear-text-passwords-and-why-you-shouldnt-store-them-e61c604b1fb7

If I were grading this, it would get an instant fail.