Lezen van Database werkt niet

[Snabugje]

Hallo beste mede programmeurs, (die hier veel beter in zijn dan ik),

Ik zit met een klein probleempje. Mijn code werkt niet zoals ik wil dat-ie moet werken. De bedoeling is om een connectie te maken met een *.accdb file en dan mbv DataReader de gegevens lezen.
Alleen krijg ik steeds: "De opdrachttekst is niet ingesteld voor het opdrachtobject."

dit is de code:

Public Class LoginForm1
    Public UserID As Integer
    Public User As String
    Dim strSQL As String

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim strsql As String = "SELECT Werknemer,Wachtwoord FROM O_Wachtwoord WHERE Werknemer='" & UsernameTextBox.Text & "' AND Wachtwoord ='" & PasswordTextBox.Text & "';"
        
        If Me.SaveUser.Checked = True Then
            My.Settings.InlogName = Me.UsernameTextBox.Text
        Else
            My.Settings.InlogName = "null"
        End If
        
        Call MijnDatabase()
    End Sub

Private Sub MijnDatabase()

        Dim Database As New OleDb.OleDbCommand(strSQL, New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\SIB4U.accdb;"))
        Database.Connection.Open()

        Dim DataReader As System.Data.OleDb.OleDbDataReader
        [COLOR="red"]DataReader = Database.ExecuteReader()[/COLOR]
        Database.ExecuteReader.Read()

        Try
            If DataReader(0) = UsernameTextBox.Text And DataReader(1) = PasswordTextBox.Text Then
                MsgBox("Inlog OK!")

                Dim frm As New Form
                frm = DesignerForm
                User = Me.UsernameTextBox.Text
                Me.Hide()
                frm.Show()

            End If
        Catch ex As InvalidOperationException
            MsgBox("Werknemer en/of Wachtwoord onbekend")
            Exit Sub
        Catch ex As Exception
            MsgBox("Er heeft zich een onbekende fout voor gedaan")
        Finally
            Database.Connection.Close()
            Database.Connection.Dispose()
        End Try

    End Sub

Bij de rode tekst loopt-ie steeds tegen de error.

Weet iemand wat ik hier fout heb gedaan??

Alvast bedankt!!!

MvG
Snabugje

 

[ErikBooy007]

My guess, hij ziet je query niet.

Je moet denk ik in je OK_Click

strSql = "SELECT Werknemer,Wachtwoord FROM O_Wachtwoord WHERE Werknemer='" & UsernameTextBox.Text & "' AND Wachtwoord ='" & PasswordTextBox.Text & "';"

gebruiken ipv:

 Dim strsql As String = "SELECT Werknemer,Wachtwoord FROM O_Wachtwoord WHERE Werknemer='" & UsernameTextBox.Text & "' AND Wachtwoord ='" & PasswordTextBox.Text & "';"

 

[Snabugje]

Hallo Erikboy,

Bedankt voor je reactie en oplossing
Je antwoord was inderdaad de oplossing, ik had al eerder 'strSQL' ge-'dimt' daarom pakte hij de query niet.

Het probleem is opgelost, ontzettend bedankt!!!:thumb:

Mvg
Snabugje