Följande kod skall hämta data i en databas och sätta in den i en ListView. Får dock följande fel vid oOleDbDa.Fill(odtDataTable): "Det har inte angetts något värde för en eller flera nödvändiga parametrar".
Är nybörjare på vb.net. Hoppas någon vill hjälpa mig med detta

Private Sub btnSenaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSenaste.Click
        Dim oOleDbConn As OleDbConnection
        Dim oOleDbDa As OleDbDataAdapter
        Dim oOleDbCmd As OleDbCommand
        Dim strProvider As String = ""
        Dim strFileSource As String = ""

        'Variabler
        Dim strSQL As String = ""
        Dim odtDataTable As DataTable
        Dim odrDataRow As DataRow
        Dim oitmx As ListViewItem
        Dim intRaknare As Integer
        Dim intAntalRader As Integer

        'Kopplingen...
        strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        strFileSource = Application.StartupPath & "\Loggbok.mdb"
        oOleDbConn = New OleDbConnection()
        oOleDbConn.ConnectionString = strProvider & strFileSource
        oOleDbConn.Open()

        'Förbered utsökningen
        strSQL = "SELECT Datum, Tid, Typ, Plats, Logg, Motorh FROM Logg"
        oOleDbCmd = New OleDb.OleDbCommand(strSQL, oOleDbConn)
        oOleDbDa = New OleDb.OleDbDataAdapter()
        oOleDbDa.SelectCommand = oOleDbCmd
        'oOleDbDa.SelectCommand.ExecuteNonQuery()

        'Kör frågan och placera returen från SELECT-satsen i objektet
        odtDataTable = New DataTable
        oOleDbDa.Fill(odtDataTable)

        'Iterera genom att visa data i en ListView
        intAntalRader = odtDataTable.Rows.Count
        lvwLoggSenaste.Items.Clear()

        For intRaknare = 0 To intAntalRader - 1
            odrDataRow = odtDataTable.Rows.Item(intRaknare)
            oitmx = New ListViewItem
            With oitmx
                .Text = odrDataRow.Item("Datum").ToString()
                .SubItems.Add(odrDataRow.Item("Tid").ToString())
                .SubItems.Add(odrDataRow.Item("Typ").ToString())
                .SubItems.Add(odrDataRow.Item("Plats").ToString())
                .SubItems.Add(odrDataRow.Item("Logg").ToString())
                .SubItems.Add(odrDataRow.Item("Motorh").ToString())
            End With
            lvwLoggSenaste.Items.Add(oitmx)
            oitmx = Nothing
        Next

        oOleDbConn.Close()
    End Sub

Det meddelandet brukar komma om man stavar fel till något kolumnnamn eller om kolumnen helt enkelt inte finns i databasen.

/Johan