Ajuda com exclusão no vb6

[adson lopes]

bom pessal sou novo aqui no forum e ja venho com um problema,

estou começando me deraum umas dicas a partir do visual basic 6 e como banco de dados o acess 2003 criei alguma coisa aqui e foi melhorando ate q cheguei ao ponto de criar um pequeno aplicativo e o mesmo grava no banco de dados meu problema é que na hora de excluir ele não excluir.

fiz a rotina ele pergunta se eu quero realmente excluir clico no sim e nem avisa que exclui nem exclui alguém pode me ajudar??

a rotina é a seguinte:

Private Sub cmdexcluir_Click()
Dim cnnComando As New ADODB.Command
Dim vOk As Integer

     On Error GoTo errExclusao
     vOk = MsgBox("Confirma a exclusão desse registro?", _
     vbApplicationModal + vbDefaultButton2 + vbQuestion + vbYesNo, _
     "Exclusão")
     If vOk = Yes Then
     scrrenMousePointer = vbHourglass
    With cnnComando
    .ActiveConnection = cnncontroler
    .CommandType = adCmdText
    .CommandText = "DELETE FROM Fornecedor WHERE Referencia = " & _
       txtrefe.Text & ";"
       .Execute
       End With
    MsgBox "Registro excluído com sucesso.", _
    vbApplicationModal + vbInformation + vbOKOnly, _
    "Exclusão Ok"
    End If
Saida:
screenmousepointer = vbDefault
    Set cnnComando = Nothing
    Exit Sub
errExclusao:
   With Err
      If .Number <> 0 Then
      MsgBox "Houve um erro durante a exclusão do registro.", _
      vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
      .Number = 0
      GoTo Saida
      End If
      End With
End Sub

se alguém porede me ajudar "Fornecedor é a tabela do bd e referencia e onde deve ser excluido e tal aguardo a ajuda d vocês