Como usar el insert Into en varias tablas con una condicion

[_CrisiS_]

Hola tengo 3 tablas

create table Registro (
Cod_reg int (7) Not Null auto_increment,
Num_referencia int (5),
RecepcionDocRef Datetime,
Procedencia
Primary Key (cod_reg)

create table infractor(
DNI int (8) Not Nul,
Edad int (2)Not Null,
Sexo char(2)Not Null
Apellido_Nom varchar(80)Not Null,
Motivo varchar(120),
Primary Key (DNI)
Cod_reg int (7),
Foreing Key(cod_reg) references Registro(cod_reg)

create table Muestra (
Tipo varchar(80),
FechaHora_Extrac datetime,
DescripcionMuestra varchar(180),
Observaciones varchar(180),
cod_reg int(7),
Foreign key(cod_reg) references Registro(cod_reg)
);

Mi duda ahora es como en Vb Net puedo hacer para grabar con un boton todos esos datos en las 3 talas usando una condicion donde el cod_reg sea el mismo que el "txtbox1"