Haciendo estas dos modificaciones que adjunto, ya graba bien...
Código:
Ado.Recordset!Monitor = TxtMonitor.Text
' Ado.Recordset!Grabadora = ChkGrabadora.Value
Ado.Recordset.Update
MsgBox " Sus datos han sido almacenados correctamente "
Ado.Recordset.MoveNext
Exit Sub
h:
MsgBox " imposible agregar datos a un box que no existe aun"
End Sub
Explicación:
1.- No puedes grabar el campo Grabadora porque en la base de datos NO EXISTE ESE CAMPO. Como tampoco has implementado todavía los campos para Juegos y CamWeb... Se ve que esto lo has pensado después de haber creado la base de datos... Tienes que agregar esos campos y luego ya te admitirá su grabación (de los tres...)
2.- Si no pones "Exit Sub" te presentará SIEMPRE el mensaje de "imposible agregar...", aun cuando ya lo haya agregado...