Try
 
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
        & _
        "Data " & _
        "Source=C:\xx\xx\xx\xx\xx\xx.mdb")
 
        cn.Open()
 
        With cn.CreateCommand()
             .CommandText = "Select Text2 FROM Sprache WHERE " & _
             "Textnummer=" & zahl & " AND Sprache= '" & sprache & "'"
             loadFritz = .ExecuteScalar.ToString
        End With
 
        cn.Close()
 
        Catch ex As Exception
             MessageBox.Show("Fehler: " & ex.ToString)
             loadFritz="Fehler"
        End Try
 
End Function

EALA FREYA FRESENA