SoloCodigo

hola a todos tengo un full problema y no se como solucionarlo.
El tema es que tengo 2 tablas una llamada Persona(Id, Nombre, Apellido,CI,Domicilio) y otra Paciente(Id,edad,Procedencia, Ocupacion, Estado_Civil).
El punto es que al momento de LLenar la tabla Persona me llene tambien la Tabla Paciente Con el Id de la Persona.
Las tablas si o si tenen que ser separadas puesto que se trata de una generalización.
Tengo un formulario general para la introduccion de estos datos.
Si me pueden dar otra forma de hacer esto seria genial.

La Base de Datos esta en Acces
y trate de hacerlo de la siguiente manera:
Private mobjConn                As ADODB.Connection
Private mobjConn1               As ADODB.Connection
Private mobjCmd                 As ADODB.Command
Private mobjCmd1                 As ADODB.Command

  Dim strSQL          As String
  Dim strSQL1         As String

 strSQL = "INSERT INTO PERSONA(  ID"
        strSQL = strSQL & "            , Nombre"
        strSQL = strSQL & "            , Apellido"
        strSQL = strSQL & "            , CI"
        strSQL = strSQL & "            , Domicilio"
        strSQL = strSQL & "         ) VALUES ("
        strSQL = strSQL & lngIDField
        strSQL = strSQL & ", '" & Replace$(txtNombre.Text, "'", "''") & "'"
        strSQL = strSQL & ", '" & Replace$(txtApellido.Text, "'", "''") & "'"
        strSQL = strSQL & ", '" & Replace$(txtCI.Text, "'", "''") & "'"
        strSQL = strSQL & ", '" & Replace$(txtDomicilio.Text, "'", "''") & "'"
        strSQL = strSQL & ")"
       
        strSQL1 = "INSERT INTO INTERESADO(  ID"
        strSQL1 = strSQL & "            , Telefono"
        strSQL1 = strSQL & "         ) VALUES ("
        strSQL1 = strSQL & lngIDField
        strSQL1 = strSQL & ", '" & Replace$(txtTelefono.Text, "'", "''") & "'"
        strSQL1 = strSQL & ")"
   
    mobjCmd.CommandText = strSQL
    mobjCmd.Execute
    mobjCmd1.CommandText = strSQL1
    mobjCmd1.Execute
Espero que puedan ayudarme bueno bye. y gracias de antemano jejej