Public Function FillDataTable(ByVal sqlRequestCommand As String, ByVal dt As _
  DataTable) As DataTable
        Debug.WriteLineIf(My.Settings.bDebugAusgabe_SQL, _
        "FP_SqlCommunication.FillDataTable: " & sqlRequestCommand)
        Dim sqlDataadapter = New SqlDataAdapter(sqlRequestCommand, _
        _sqlConnectionString)
 
        sqlDataadapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
 
        sqlDataadapter.Fill(dt)
        Return dt
 
    End Function

Dim dtTest As New DataTable
dtTest = sqlRezeptur.FillDataTable("SELECT * FROM Benu