SQL = "SELECT ID, Name, Vorname FROM csDB_Ansprechpartner Where ID_Kunde='1'" & _
  "Order by 1"
Dim command As IDbCommand = CurrentSession.Connection.CreateCommand()
command.CommandText = SQL
Dim reader As IDataReader
Try
    reader = command.ExecuteReader(CommandBehavior.Default)
Catch ex As Exception
    Debug.WriteLine(ex.Message)
End Try