Visual Basic - Agregar registros

Hola chicos soy abstante nueva y tenga una duda. Quiero agregar una nueva tarjeta de credito a una tabla y a la vez agregar los planes es decir tengo 2 tablas tarjetas y planes
lo que quiero hacer es que se agreguen a la vez estos datos porque tienen una relacion estas 2 tablas y no se como hacerlo
uso ADO
intente hacer esto, pero me da error en la sentencia sql

Dim strsql As String
strsql = "insert into tarjetas(codtarjeta, nombre, autorizacion), values(" + Text2.Text + " ', ' " + Text1.Text + "', ' " + Text6.Text + "', ' )"
Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open (strsql), db, adOpenDynamic, adLockOptimistic

bueno a ver si alguien me ayuda
grcias chauuu

Prueba a agregarlo directamente en la tabla ejemplo
Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open "tarjetas", db, adOpenDynamic, adLockOptimistic
With rs
.AddNew
.fields("codtarjeta")= Text2.Text
.fields("nombre")=Text1.Text
.fields("autorizacion")=Text6.Text
.Update
End with
Esto mismo lo puedes harcer con la otra tabla