[Resolvido]Erro de indice

Boas pessoal, estou a fazer um formulário com uma caixa de combinação para apagar utilizadores do meu sistema de login, eu escolho o usuário na caixa de combinação que ta ligada a uma tabela e depois clico no botão excluir e ele da-me erro diz que o nome do utilizador não e índice de tabela.
Vou postar o código do vba do botão excluir.

Private Sub cmdExcluir_Click()
On Error GoTo Erro_cmdExcluir_Click

If IsNull(User) Then
MsgBox "Por favor selecione um usuário da lista.", vbExclamation
User.SetFocus
Else
Dim strNome As String
strNome = User
If MsgBox("Você deseja realmente excluir o usuário '" & strNome & "' ?", vbYesNo + vbQuestion, "Exclusão concluída") = vbYes Then

Dim myrec As Recordset, db As Database
Set db = CurrentDb()
Set myrec = db.OpenRecordset("Senhas", DB_OPEN_TABLE)
myrec.Index = "Usuário"
myrec.Seek "=", strNome
myrec.Delete
myrec.Close
MsgBox "Usuário '" & strNome & "' excluído com sucesso!", vbInformation, "Exclusão concluída"
DoCmd.Close
End If
End If

Sair_cmdExcluir_Click:
Exit Sub

Erro_cmdExcluir_Click:
MsgBox Err.Description
Resume Sair_cmdExcluir_Click
End Sub


Aparece a combo pergunta-me se eu desejo excluir o utilizador como esta em cima eu clico sim e aparece outra combo a dizer usuário não e um índice desta tabela.

Agradeço desde já toda a ajuda!

O seu campo indexado na tabela é o Index = "Usuário" ???

Ou tem um campo de autonumeração, por exemplo ID ?

User é nome da combobox ?

A combobox tem mais campos ?

Se o primeiro campo da sua combobox for o Usuário, será assim:

Dim myrec As Recordset
Set myrec = CurrentDb.OpenRecordset("Senhas")

If IsNull(User) Then
MsgBox "Por favor selecione um usuário da lista.", vbExclamation
Me.User.SetFocus
Else

If MsgBox("Você deseja realmente excluir o usuário '" & User & "' ?", vbYesNo + vbQuestion, "Exclusão concluída") = vbYes Then

myrec.MoveFirst
Do Until myrec.EOF

If myrec.Fields("Usuário") = Me.User.Value Then

myrec.Delete
MsgBox "Usuário '" & User & "' excluído com sucesso!", vbInformation, "Exclusão concluída"

End If
myrec.MoveNext
Loop
End If
End If
Set myrec = Nothing

Se o campo usuário da sua combobox for o segundo campo, será assim:

Dim myrec As Recordset
Set myrec = CurrentDb.OpenRecordset("Senhas")

If IsNull(User) Then
MsgBox "Por favor selecione um usuário da lista.", vbExclamation
Me.User.SetFocus
Else

If MsgBox("Você deseja realmente excluir o usuário '" & User.Column(1) & "' ?", vbYesNo + vbQuestion, "Exclusão concluída") = vbYes Then

myrec.MoveFirst
Do Until myrec.EOF

If myrec.Fields("Usuário") = Me.User.Column(1) Then

myrec.Delete
MsgBox "Usuário '" & User.Column(1) & "' excluído com sucesso!", vbInformation, "Exclusão concluída"

End If
myrec.MoveNext
Loop
End If
End If
Set myrec = Nothing

Boas colega obrigado...Deu o seu código

Obrigado abraço enorme

MUITO OBRIGADO

RESOLVIDO

Obrigado pelo retorno o forum agradece.