if pProvider = "Jet" and not io.File.Exists(datasource) then
    New InvalidParameterException("Es wurde der Provider Jet gewählt, 
jedoch die datenbank unter Datasource konnte nicht gefunden werden")
end if

try
    Dim ConString as ConnectionString("Jet", "C:\DB.mdb")
Catch IPEx as InvalidParameterException
    ' fehler behandlung, z.b. kunden nach datenbank suchen lassen und die 
    ' funktion rekursiv aufrufen um einen gültigen rückgabe wert zu erhalten
End Try