Try
 
            Dim cn As New OleDb.OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0; Data " & _
                             "Source=" & auslesen())
 
 
            cn.Open()
            Dim ergebnis As String
            With cn.CreateCommand()
 
                .CommandText = "Select Text FROM Test WHERE " & _
                 "nummer=" & zahl & " AND test= '" & test2 & "'"
                ergebnis = .ExecuteScalar.ToString
 
 
                load = ergebnis
 
            End With
            cn.Close()
 
        Catch ex As Exception
            ' MessageBox.Show("Fehler: " & ex.ToString)
            'loadText = "Fehler"
 
 
            MsgBox("There is no language saved in the database!")
            Exit Try
        End Try