SELECT tr_date AS Datum, tr_effdate AS tr_effdate, tr_loc AS tr_loc, tr_part AS _
  tr_part, tr_per_date AS tr_per_date, tr_rmks AS tr_rmks, tr_trnbr AS Nummer _
  FROM pub.tr_hist  WHERE tr_trnbr > 6393700

Dim keys As Array = dataset.Tables("This_Fields").PrimaryKey 'ist bei ALIAS 
' immer leer

SELECT tr_date AS Datum, tr_effdate AS tr_effdate, tr_loc AS tr_loc, tr_part AS _
  tr_part, tr_per_date AS tr_per_date, tr_rmks AS tr_rmks, tr_trnbr FROM _
  pub.tr_hist  WHERE tr_trnbr > 6393700

           Dim odbc_command As Odbc.OdbcCommand = New Odbc.OdbcCommand(SQL)
 
 
            odbc_command.CommandType = CommandType.Text
            odbc_command.CommandTimeout = dataset.Tables("Parameter").Rows.Find( _
              "QueryTimeOut").Item("Value")
            odbc_command.Connection = ODBC_connection
 
            ODBC_Adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
            ODBC_Adapter.SelectCommand = odbc_command
 
            If Scheme_Only = True Then
 
                ODBC_Adapter.FillSchema(dataset, SchemaType.Source, tableName)
            Else
 
                ODBC_Adapter.Fill(dataset, tableName)
 
            End If