Ingresar nuevos datos en un formulario

Cuando agregues un nuevo registro en tu formulario... dale esta instrucción
Datagrid. Rebind
Esto hace que el datagrid se actualize
Y puedes probar con estos códigos para ver por donde te manda el error
Private Sub DataGrid1_AfterDelete()
'
' Avisa al usuario la eliminación
'
MsgBox "Registro eliminado", vbInformation, _
"Aviso"
End Sub
Private Sub DataGrid1_AfterInsert()
'
' Avisa al usuario que se ha realizado la operación
'
MsgBox "Los datos han sido agregados", vbInformation, _
"Datos Insertados"
End Sub
Private Sub DataGrid1_AfterUpdate()
'
' Avisa que se realizó el cambio
'
MsgBox "Los cambios han sido guardados", vbInformation, _
"Aviso"
End Sub
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
'
'Confirma la modificación
'
Dim intResp As Integer
intResp = MsgBox("¿Desea guardar la modificación?", _
vbInformation + vbYesNo, "Confirme modificación de columna")
End Sub
Private Sub DataGrid1_BeforeDelete(Cancel As Integer)
'
'Hace que el usuario confirme la eliminación
'
Dim intResp As Integer
intResp = MsgBox("¿Desea eliminar este registro?", _
vbInformation + vbYesNo, "Confirme")
If intResp = vbNo Then
Cancel = True 'No elimine nada
End If
End Sub
Private Sub DataGrid1_BeforeInsert(Cancel As Integer)
'
'Hace que se confirme la operación
'
Dim intResp As Integer
'
intResp = MsgBox("Desea agregar un registro?", _
vbInformation + vbYesNo, "Confirme adición")
If intResp = vbNo Then
Cancel = True 'No agregar
End If
End Sub
Private Sub DataGrid1_BeforeUpdate(Cancel As Integer)
'
'Solicite una Confirmación
'
Dim intResp As Integer
'
intResp = MsgBox("¿Desea guardar los cambios?", _
vbInformation + vbYesNo, "Confirme")
If intResp = vbNo Then
Cancel = True 'No agregar
DataGrid1.ReBind 'Reestablezca los valores
End If
End Sub