El error te lo da porque el recordset no tiene registros, porque no probas con un SQL...
Código:
Private Sub Eliminar_Click()
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
con1.Execute "DELETE FROM profesores WHERE Idprofesor = " & Text1 ' En lugar de rs1.Delete
End If
rs1.MovePrevious
rs1.MoveNext
refrescar
End Sub
Espero te sirva
Saludos
