Hej!

Jag börjar med lite kod.

    Public Shared Sub loggin(ByVal strAnvandarNamn As String, ByVal strLosenOrd As String, ByVal intDatabas As Integer)

        'Laddar in databasen - i första hand nu för att kontrollera så användaren är behörig
        If intDatabas = 1 Then
            'tanken med den här satsen är att man kan styra 
            ' vilken databas man avser ladda, i ett större perspektiv
            LaddaDatabas = "Provider=Microsoft.jet.oledb.4.0; Data source =BoknDB.mdb"
        End If

        'Kontrollera användaruppgifter
        Dim sqlstr As String
        sqlstr = "SELECT * FROM tblAnvandare WHERE AnvandarNamn ='" & strAnvandarNamn & _
                 "' AND LosenOrd ='" & strLosenOrd & "';"
        'ALTERNATIV: kolla först användarnamn, sedan lösenord FÖR användarnamn. Då kan man 
        'hitta FEL för när användarnamn stämmer, men inte lösen.

        Select Case checkSQLselect(sqlstr)

            Case Nothing 'Frågan kunde inte ställas
                LaddaDatabas = ""
                clsFelHantering.fel = "loggin: Fråga kunde inte ställas. :: " & sqlstr
            Case 0 'Ingen användare fanns
                LaddaDatabas = ""
                clsFelHantering.fel = "loggin: Ingen Användare fanns"
            Case 1 'En post motsvarade sqlfrågan
                'sätter propertyn enligt användaruppgifterna.
                clsFelHantering.fel = "loggin: En Användare fanns"
            Case Else 'flera poster motsvarade SQL-frågan.
                'hitta på något som skickar tillbaka den här infon
        End Select
    End Sub

    Public Shared Function OpenDataTable(ByVal sqlstr As String) As DataTable
        Dim _db As New DataTable()
        Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlstr, _connstr)
        If LaddaDatabas <> "" Then
            dataAdapter.ToString()
            dataAdapter.Fill(_db)
            dataAdapter.Dispose()
            Return _db
        End If
        Return Nothing
    End Function

    Public Shared Function checkSQLselect(ByVal strSQLstring As String) As Integer
        'Den här funktionen skall kontrollera om SQL-selectsträng om det finns en rad i databasen som
        'motsvarar sökningen. Beroende på resultatet så kommer funktionen returnera en integer
        'som man kan ha och jämföra mot på andra sidan.
        Select Case checkSQLQuery(strSQLstring)
            Case 0 'misslyckades att ställa SQL-frågan helt
                Return Nothing
            Case 1 ' lyckades ställa SQL-frågan
                'kontrollerar om det finns några poster i tabellen som motsvarar frågan

                Dim resultat As New DataTable 'Tabell som innehåller eventuella sökresultatet

                Try
                    resultat = clsDBHantering.OpenDataTable(strSQLstring)
                Catch
                End Try
                Return resultat.Rows.Count '||||||||||||||||||||<1. Här händer felet. hur kontrollerar jag?
                'ALLTERNATIV: Vet ej om nedan behövs, men sparar det.
                'Select Case resultat.Rows.Count
                '    Case Nothing 'Fanns inga poster som matchade frågan
                '        Return 0 'Returnerar Ingenting, när poster saknas
                '    Case 1 'hittade EN post som motsvarar frågan
                '        Return 1 'Vill egentligen returnera radindex här.
                '        'Men väntar med det tills jag vet hur man gör
                '    Case Is > 1 'Hittade flera poster som motsvarade frågan
                '        Return 2 'två motsvarar fler än en post
                'End Select
        End Select
    End Function
    Public Shared Function checkSQLQuery(ByVal strSQLstring As String) As Integer
        Dim testQuery As Integer = 1
        'om testQuery = 1 efter Try, så skall det innebära att frågan är OK.
        Try
            OpenDataTable(strSQLstring) '||||||||||||<2. Funkar detta egentligen?
        Catch
            testQuery = 0
        End Try
        Return testQuery
    End Function

Jaha - lessen för att det blev ett ganska massivt kodstycke här, men det behövdes för att förstå sammanhanget... jag har i två kommentaret singalerat lite extra... Dessa punkter hade jag tänkt ta upp lite mer här.

Alltså.
1. Finns det någon egenskap i datatable man kan använda utan att få nullexception? varför gillar den inte att man hoppar in i instansmetoden för att kolla på en egenskap sådär (om den skulle vara null?)?

2. Händer det som jag vill skall hända här? eller Måste jag jämföra mot en variabel? om OpenDataTable(strSQLstring) inte skulle fungera... så vill jag att testQuery = 0 .

jaha... jag hittade felet... som fanns i ett annat kodstycke... (LaddaDatabas-propertyn har bara en set, och returnerar ingenting...). Man får nollställa direkt på _connstr...