Left(Field,InStr( 1 ,Field,Field2)- 1 )

Left(Right(Field,InStr( 1 ,Field,Field2)),InStr( 1 ,Field,Field2))+Len(Field2))

Right(Field,InStr( 1 ,Field,Field2))+Len(Field2))

Dim rst as recordset

Set rst currentdb.openrecordset( "Table1" ) 'выбор из таблице где стоит XXXXXXX
Do Until rst.eof 
CurrentDb.Execute(Insert into TableCombine ( xx,  Text_xx_text) SELECT ' " & rst(" имя поля в котором содержится хххх ") & " ' AS xx, T2.t_x_t From T2 Where (((T2.t_x_t) Like '* " & rst("  "имя поля в котором содержится хххх" ) & "*' ));") ' эта строка добавляет в таблицу Tablecombine поля из первой таблице, которое содержит ххххх и поля из второй которое содержит текст+хххх+текст
Loop

rst.close