Function ReadDB(datDate As Date, Money As String) As Double
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strFile As String, strCon As String, strSQL As String
strFile = ThisWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
strSQL = "SELECT TOP 1 Kurs FROM Kurse where Datum = " & CLng(datDate) & " and Währung = """ & Money & """"
rs.Open strSQL, cn
ReadDB = rs.GetString
End Function
Sub Abfrage()
Dim dat As Date
dat = DateValue("1.4.2016")
Debug.Print ReadDB(dat, "NL")
End Sub