vb.net - Gebruiker aanmelden - database

Private Sub btnAanmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAanmelden.Click

        Dim oConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|db.mdb;"
        Dim oCon As New OleDb.OleDbConnection(oConString)

        oCon.Open()
        Dim Gebruiker_Ophalen As String = ""
        If Gebruiker_Ophalen = ("SELECT WerknemersNaam, WerknemersWachtwoord FROM Werknemers WHERE WerknemersNaam = '" & txtGebruikersnaam.Text & "', WerknemersWachtwoord = '" & txtWachtwoord.Text & "'") Then
            form1.Show()
        Else
            MessageBox.Show("Gebruikersnaam/Wachtwoord combinatie verkeerd", "Aanmeldings fout!")
        End If
        oCon.Close()
    End Sub

Private Sub btnAanmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAanmelden.Click
 
        Dim oConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|db.mdb;"
        Dim oCon As New OleDb.OleDbConnection(oConString)
 
        oCon.Open()
        Dim Gebruiker_Ophalen As String = ""
        If Gebruiker_Ophalen = ("SELECT WerknemersNaam, WerknemersWachtwoord FROM Werknemers WHERE WerknemersNaam = '" & txtGebruikersnaam.Text & "', WerknemersWachtwoord = '" & txtWachtwoord.Text & "'") Then
            form1.Show()
        Else
            MessageBox.Show("Gebruikersnaam/Wachtwoord combinatie verkeerd", "Aanmeldings fout!")
        End If
        oCon.Close()
    End Sub