Zu blöd für SQL

SELECT * FROM [WholeDs_Outp] WHERE [InUsageOf]='ein Name'

Public Function GetEmployeeData(ByVal emp As String) As Variant
Dim conn    As Object
Dim rs      As Object
Dim pName   As String
Dim nConn   As String
Dim sSql    As String
pName = ThisWorkbook.FullName
nConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& pName & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open nConn
sSql = "SELECT * FROM [WholeDs_Outp] " & _
"WHERE [InUsageOf]='" & emp & "'"
rs.Open sSql, conn
If Not rs.EOF And Not rs.BOF Then
GetEmployeeData = rs.GetString(, , ";", "|")
End If
rs.Close
conn.Close
End Function