Ogiltigt argument

Välkommen till wF!
Visa lite kod så kommer vi att kunna hjälpa dig bättre

mvh icaaq

Tack

Felet kommer på alla sidor som som använder sig av Oledb, de andra sidorna fungerar som de ska

Dim login As New String("")
        Dim strSQL As String = "SELECT * FROM medlem WHERE login='" & Request.Form("txtlogin") & "' AND pass='" & Request.Form("txtpass") & "'"
        Dim cnn As New OleDbConnection(constants.OleDbConnectionString)
        Dim dr As OleDbDataReader
        Dim Command As New OleDbCommand(strSQL, cnn)
        Dim da As New OleDbDataAdapter(strSQL, cnn)
        Dim ds As New DataSet()
        da.Fill(ds, "tmp")
        Dim num As New Integer()
        cnn.Open()
        dr = Command.ExecuteReader
        Dim idt As String
        Dim admin As String
        Dim aktiv As String
        Dim anledning As String
        Do While dr.Read
            idt = dr("id")
            admin = dr("admin")
            aktiv = dr("aktivt")
            If dr("anledning") <> "null" Then
                anledning = dr("anledning")
            Else
                anledning = "Ingen anledning angiven"
            End If

        Loop
        dr.Close()
        Command.Dispose()
        If cnn.State = ConnectionState.Open Then
            cnn.Close()
        End If
        cnn.Dispose()

hur ser denna kod ut?
constants.OleDbConnectionString

Den ser ut såhär:

Public Class constants
    Private Const datapath As String = "E:\stat\data.mdb"
    Shared persid As Integer
    Public Shared ReadOnly OleDbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & datapath

End Class