INSERT INTO foo (auto,text)
    VALUES(NULL,'text'); # генерация ID вставкой NULL
INSERT INTO foo2 (id,text)
    VALUES(LAST_INSERT_ID(),'text'); # использование ID во второй таблице

INSERT INTO foo (auto,text)
    VALUES(NULL,'text'); # генерация ID вставкой NULL

INSERT INTO foo2 (id,text)
    VALUES(LAST_INSERT_ID(),'text'); # использование ID во второй таблице

CREATE DEFINER=`root`@`localhost` PROCEDURE `get_newid_doc`()
BEGIN
DECLARE last_id int;
INSERT INTO documents (id,name)
    VALUES(NULL,'strtemp');
set @last_id=(select last_insert_id());
select @last_id;
END

CREATE DEFINER=`root`@`localhost` PROCEDURE `add_to_registrusl`(in d_id BIGINT( 20 ),
in cl_id BIGINT( 20 ) ,in usl_id BIGINT( 20 ) ,in d_price INT( 7 ) ,
in d_am INT( 5 ) ,in d_date varchar( 20 ) ,in d_time varchar( 20 ))
BEGIN
insert into registr_usl (doc_id,client_id, usluga_id, price , amount,doc_date, doc_time)
values (d_id , cl_id , usl_id , d_price , d_am , d_date ,d_time);
END

strsql = "CALL get_newid_doc()"
query strsql
naklnum = rs.Fields( 0 ).Value

Dim prm1, prm2, prm3, prm4, prm5, prm6, prm7
..............
Public Sub command(proc As String)
strconn = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=it; User=root;Password=506;Option=3;"
Set Conn = New ADODB.Connection
Conn.Open strconn
Set comm = New ADODB.command
comm.ActiveConnection = Conn
comm.CommandType =  4 
comm.CommandText = proc
End Sub
.............................
Private Sub Command12_Click()
FlexGridPlus4.FixedRows =  0 
strsql = "CALL get_newid_doc()"
query strsql
naklnum = rs.Fields( 0 ).Value
strsql = ""
command ("add_to_registrusl")
For i =  1  To FlexGridPlus4.Rows -  1 
Set prm1 = comm.CreateParameter("d_id", adBigInt, adParamInput,  20 , naklnum)
comm.Parameters.Append prm1
Set prm2 = comm.CreateParameter("cl_id", adBigInt, adParamInput,  20 , Combo1.ItemData(Combo1.ListIndex))
comm.Parameters.Append prm2
Set prm3 = comm.CreateParameter("usl_id", adBigInt, adParamInput,  20 , FlexGridPlus4.TextMatrix( 1 ,  4 ))
comm.Parameters.Append prm3
Set prm4 = comm.CreateParameter("d_price", adInteger, adParamInput,  7 , massprice(FlexGridPlus4.TextMatrix( 1 ,  4 )))
comm.Parameters.Append prm4
Set prm5 = comm.CreateParameter("d_am", adInteger, adParamInput,  5 , FlexGridPlus4.TextMatrix( 1 ,  2 ))
comm.Parameters.Append prm5
Set prm6 = comm.CreateParameter("d_date", adDBDate, adParamInput, , Text2.Text)
comm.Parameters.Append prm6
Set prm7 = comm.CreateParameter("d_time", adDBTime, adParamInput, , Text2.Text)
comm.Parameters.Append prm7
comm.Execute
FlexGridPlus4.RemoveItem  1 
Next i
FlexGridPlus4.Rows = FlexGridPlus4.Rows +  1 
FlexGridPlus4.FixedRows =  1 
Set rs = Nothing
Combo2.Visible = False
Command1.Enabled = True
Command9.Enabled = True
Command12.Enabled = False

command ("add_to_registrusl")
Set prm = comm.Parameters
For i =  1  To FlexGridPlus4.Rows -  1 
prm.Append comm.CreateParameter("d_id", adBigInt, adParamInput,  20 , naklnum)
prm.Append comm.CreateParameter("cl_id", adBigInt, adParamInput,  20 , Combo1.ItemData(Combo1.ListIndex))
prm.Append comm.CreateParameter("usl_id", adBigInt, adParamInput,  20 , FlexGridPlus4.TextMatrix( 1 ,  4 ))
prm.Append comm.CreateParameter("d_price", adInteger, adParamInput,  7 , massprice(FlexGridPlus4.TextMatrix( 1 ,  4 )))
prm.Append comm.CreateParameter("d_am", adInteger, adParamInput,  5 , FlexGridPlus4.TextMatrix( 1 ,  2 ))
prm.Append comm.CreateParameter("d_date", adDBDate, adParamInput, , Text2.Text)
prm.Append comm.CreateParameter("d_time", adDBTime, adParamInput, , Text3.Text)
comm.Execute
FlexGridPlus4.RemoveItem  1 
Next i

comm.Execute

For i =  1  To FlexGridPlus4.Rows -  1 
......
prm.Append comm.CreateParameter("usl_id", adBigInt, adParamInput,  20 , FlexGridPlus4.TextMatrix( 1 ,  4 ))
..........
comm.Execute
FlexGridPlus4.RemoveItem  1 
Next i

prm.Append comm.CreateParameter("d_time", adDBTime, adParamInput, , Text3.Text)

comm.Execute