Login module(help how to create) the database i'm using is MSAccess

Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM login WHERE username = '" & usernametxtbox.Text & "' AND password = '" & passwordtxtbox.Text & "' ", con)
        con.Open()
        Dim sdr As OleDbDataReader = cmd.ExecuteReader()
        ' If the record can be queried, Pass verification and open another form.
        If (sdr.Read() = True) Then
 
            MessageBox.Show("The user is valid!")
 
            Dim main As New mainform
            mainform.Show()
 
            Me.Hide()
 
        Else
 
            MessageBox.Show("Invalid username or password!")
 
        End If