Evitar duplicidad

[banrey]

Esto es lo que tengo hecho

vivienda=Request.Form("vivienda")
vehiculo=Request.Form("vehiculo")
licencia=Request.Form("licencia")
Dim oConn1, rs1, sql1
set oConn1 = Server.CreateObject("ADODB.Connection")
OConn1.Open "Provider=SQLOLEDB;Data Source=jnjvecatempdb;Initial Catalog=yyyyy; User Id=sa;Password=xxxxx;"
sql1 = "INSERT INTO ficha_vehicular (codfic,vehicu,gralic) VALUES (" & codfic & ","& vehiculo &"," & licencia &")"
oConn1.Execute(sql1)

que quiero insertar en la tabla vivienda al mismo tiempo que se ejecuta el insert de ficha_vehicular como lo puedo hacer.

como puedo hacer insert masivo en varias tablas al mismo tiempo, intente haciendo lo siguiente:

sql1 = "INSERT INTO ficha_vehicular (codfic,vehicu,gralic) VALUES (" & codfic & ","& vehiculo &"," & licencia &")"
sql2 = "INSERT INTO ficha_vivienda (codfic,tipvivi) VALUES (" & codfic & ","& vivienda &")"

Pero no me resulto, me prodrias ayudar como podria hacer este insert en varias tablas.

Muchas Gracias