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
 
            Dim ODBC_reader As Odbc.OdbcDataReader = odbc_command.ExecuteReader( _
              CommandBehavior.KeyInfo)
 
            Dim dt As DataTable = ODBC_reader.GetSchemaTable
 
            dt.TableName = tableName
 
            dataset.Tables.Add(dt)