Crear código para ejemplares

[Lalybs]

No, no me da ningún error .. Simplemente no me guarda los datos en la tabla ..
acá te paso el código completo para orientarte ..
Private Sub Guardar_Click()
If Trim(Text1) <> "" And Trim(Text2) <> "" And Trim(Text3) <> "" Then
Dim rg As New ADODB.Recordset
If editar Then
rg.Open "select * from peliculas where idpelicula=" & Text1, con, adOpenKeyset, adLockOptimistic, adCmdText
If Not (rg.EOF And rg.BOF) Then
rg!IdPelicula = Text1
rg!titulo = Text2
rg!idgenero = Text4
rg!idsoporte = Text5
rg!idcategoria = Text6
rg!director = Text3
rg!duracion = Text7
rg!IdEstado = Text8
rg!fecha = fecha
rg.Update
grilla1
alta_pelicula
editar = False
Text2 = ""
Text1.SetFocus
Else
MsgBox "Error al editar, no se encontro la Pelicula"
End If
rg.Close

Else
rg.Open "select * from peliculas where idpelicula=" & Text1.Text, con, adOpenKeyset, adLockOptimistic, adCmdText

If (rg.EOF And rg.BOF) Then
rg.AddNew
rg!IdPelicula = Text1
rg!titulo = Text2
rg!idgenero = Text4
rg!idsoporte = Text5
rg!idcategoria = Text6
rg!director = Text3
rg!duración = Text7
rg!IdEstado = Text8
rg!fecha = fecha
rg.Update
grilla1
alta_pelicula
Text2.Text = ""
Text2.SetFocus

Else
MsgBox "El número de pelicula ya se esta usando"
End If

End If


Else
MsgBox "Debe completar todos los datos"

rg.Open "select * from ejemplares", con, adOpenKeyset, adLockOptimistic, adCmdText
For i = 1 To numeroejemplares
rg.AddNew
rg!IdPelicula = Text1.Text
rg!IdEjemplar = i
rg!IdEstado = 2
rg!Etiqueta = Text1.Text & "-" & i
rg.Update
Next
rg.Close
'For i = 1 To numeroejemplares
'sql = "Select * from Ejemplares"
'rs.Open sql, con, adOpenKeyset, adLockOptimistic, adCmdText
'rs.AddNew
'rs!IdPelicula = Text1.Text
'rs!IdEjemplar = i
'rs!IdEstado = 2
'rs!etiqueta = Text1.Text & "-" & i
'rs.Update
'rs.Close
'Next
End If
End Sub