Eliminar un registro desde un formulario

Hola buenas tardes, tengo un problema le explico: ok, tengo primero un formulario donde tengo un cuadro combinado donde selecciono un registro, ésto para ir a otro formulario donde salen todos los campos para modificar ese registro o para eliminarlo según sea el caso. Ahora bien, cuando apretó el botón para eliminar el registro, lo que hace es eliminar el registro que esta de primero en mi tabla y no el que yo escogí, si trato de eliminar otro registro lo que me elimina seria el segundo y así sucesivamente.. Osea no toma en cuenta el registro que escojo si no que elimina los registros de la tabla en forma ascendente.. Espero me haya explicado... Aquí le dejo el código del botón para eliminar el registro por si le sirve de algo.. Muchas gracias
Option Compare Database
Private Sub Comando14_Click()
On Error GoTo Err_Comando14_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Comando14_Click:
    Exit Sub
Err_Comando14_Click:
    MsgBox Err.Description
    Resume Exit_Comando14_Click
End Sub
Private Sub Comando18_Click()
On Error GoTo Err_Comando18_Click
    DoCmd.Close
Exit_Comando18_Click:
    Exit Sub
Err_Comando18_Click:
    MsgBox Err.Description
    Resume Exit_Comando18_Click
End Sub
Private Sub Comando19_Click()
On Error GoTo Err_Comando19_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando19_Click:
    Exit Sub
Err_Comando19_Click:
    MsgBox Err.Description
    Resume Exit_Comando19_Click
End Sub
Private Sub Comando30_Click()
On Error GoTo Err_Comando30_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Formulario Prestamo de Herramientas"
    stLinkCriteria = "[Codigo Material]=" & "'" & Me![Codigo Material] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando30_Click:
    Exit Sub
Err_Comando30_Click:
    MsgBox Err.Description
    Resume Exit_Comando30_Click
End Sub
Private Sub Comando19_Enter()
End Sub
Private Sub Comando31_Click()
On Error GoTo Err_Comando31_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Ubic actual para Adm"
    stLinkCriteria = "[Cod Material para ubic actual]=" & "'" & Me![Codigo Material] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando31_Click:
    Exit Sub
Err_Comando31_Click:
    MsgBox Err.Description
    Resume Exit_Comando31_Click
End Sub