Añadir registros en una tabla de sql con .net

Muy buenas.
Primero de todo agradecer a esta comunidad, el trabajo que se esta desorrollando, ya que he encontrado muchas soluciones a mis problemillas que me van surgiendo.
En este caso me estoy encontrando que a la hora de añadir un registro a una tabla, el .net no me da ningún error, pero tampoco me esta añadiendo nada en la tabla, esta tabla la alimento del resultado de una select de otra tabla. Anexo el código donde realizado el add, espero que me puedan ayudar con esto ya que no logro encontrar una solución.
Muchas gracias de antemano.
Txui64.
RsTabla0.Open("SELECT T0.campo1, T0.campo2, T0.campo3, T0.campo4, T0.campo5, T0.campo6, T0.campo7, T0.campo8 " & _
" FROM NombreTabla T0" & _
" WHERE T0.[Campo11] = 'Y' AND T0.[campo12] = 'Y'", BBDD.SQL, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
While Not RsTabla0.EOF
RsTabla.Open("SELECT * FROM NombreTabla " & _
" WHERE Campo1 = '0'", BBDD.SQL, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockBatchOptimistic)
If RsTabla.RecordCount = 0 Then
RsTabla.AddNew()
RsTabla("Campo1").Value = Trim(RsTabla0("Campo1").Value)
RsTabla("Campo2").Value = Trim(RsTabla0("Campo2").Value)
RsTabla("Campo3").Value = Trim(RsTabla0("Campo3").Value)
RsTabla("Campo4").Value = Trim(RsTabla0("Campo4").Value)
RsTabla("Campo5").Value = Trim(RsTabla0("Campo5").Value)
RsTabla("Campo6").Value = Trim(RsTabla0("Campo6").Value)
RsTabla("Campo7").Value = Trim(RsTabla0("Campo7").Value)
RsTabla("Campo8").Value = "24 Horas"
RsTabla("Campo9").Value = Trim(RsTabla0("Campo9").Value)
RsTabla.Update()
End If
RsTabla.Close()
End If
RsTabla0.MoveNext()
End While
RsTabla0.Close()
RsTabla0 = Nothing