¡Hola amigos de Foro..
Trabajo en una pequeña aplicación, pero me han aparceido escollos que algunos he solucionado, y otros, que yo no puedo,apelo a laayuda del Foro y acá me han dado la solución. En esta oportunidad, al pinchar el boton para guardar los datos, me aparece el sigiente mensaje:
Error '-2147217887(80040e21)' en tiempo de ejecución:
El índice o la clave principal no puede contener un valor null.????, y seguidamente me destaca la la linea que puse con rojo:
Private Sub cmdUso_Click(Index As Integer)
Select Case Index

'Agrega un nuevo registro
Case 0
Rs.AddNew
picFoto.Cls
'Elimina el registro activo
Case 1
If Rs.EOF Or Rs.BOF Then Exit Sub
If MsgBox("Eliminar Registro", vbQuestion + vbYesNo) = vbNo Then Exit Sub

picFoto.Cls

'Elimina el archivo de la carpeta de imagenes
If Rs(Field_Img) <> "" Then
Call Kill(Carpeta_IMG & Rs(Field_Img))
End If

Rs.Delete
Rs.MoveNext

If Rs.EOF Then
On Error Resume Next
Rs.MoveLast
End If
'Carga la imagen del registro activo
Mostrar_Imagen
Exit Sub

' BotónGuardar los cambios en la base de datos
Case 2

If Not Rs.EOF And Not Rs.BOF Then

Rs.Update
Guardar_Imagen
End If
' Cancela la atualización o edición del registro que se editando o añadiendo
Case 3

If Rs.EOF And Rs.BOF Then Exit Sub
Rs.CancelUpdate

If Not Rs.BOF And Not Rs.EOF Then
Call Dibujar_Imagen(picFoto, Carpeta_IMG & Rs(Field_Img))
End If

'Botón Editar el registro activo
Case 4
Setear_botones
Setear_TextBox
Exit Sub
'Carga una imagen en el control Picture1
Case 5

With CommonDialog1

.DialogTitle = " Seleccionar imagen"
.Filter = "JPG|*.jpg|BMP|*.bmp|JPEG|*.jpeg|GIF|*.gif|Todos|* .*"

.ShowOpen

If .FileName = "" Then
Exit Sub
Else

' Graba el nombre en el campo, el id de imagen _
que es el mismo que el campo Id

Rs(Field_Img) = Rs!id '


' se dibuja la imagen en el Picture
Call Dibujar_Imagen(picFoto, .FileName)

End If
End With
Exit Sub
Case 6
' Limpia la imagen del Picture y Elimina el id de _
imagen del registro actual de la base
picFoto.Cls

Rs(Field_Img) = ""

Exit Sub
End Select
Setear_botones
Setear_TextBox
' Muestra la imagen
Mostrar_Imagen

txt_Field(0).SetFocus

End Sub

Como de costumbre gracias y un saludo a Todos.
fasirio

ni idea, pero igual, una preguntita... el método '.Update' tiene parámetros??

Pablo Gener.