'o que tem de errado nesta programação?
'quando faço a consulta ele acha ( ou as vezes nao acha a consulta ) e me retorna -1
'estou usando o mysql e sou novato em mysql
'o access tinha o indexador ou reparador... e onde faço isso no mysql?

If (txt_codigo_usuario <> "") Then
    Set tbUser = New ADODB.Recordset
    tbUser.Open "Select * from usuario where codigo_usuario = '" & txt_codigo_usuario.Text & "'", cn, adOpenStatic, adLockOptimistic
    If (tbUser.RecordCount = 0) Then
        vPergunta = MsgBox("Deseja realmente excluir o registro?", vbQuestion + vbYesNo, "Pergunta")
        If (vPergunta = vbYes) Then
            tbUser.Delete
        End If
    End If
    tbUser.Close
    Limpar_Form_Usuario
End If
ado_usuario.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=winner"
ado_usuario.Refresh
dbg_usuario.Refresh

Primeiro se está usando o MySQL então deve primeiro saber o seguinte:

 

se o campo for tipo integer então não deve utilizar aspas simples

 

 

utilize aspas simples somente se o campo for tipo char ou varchar

 

o recordcount não funcionará com o ADO

 

porém não entendi esta questão

 

 

não deveria ser algo + ou - assim

 

 

porém como dito anteriormente não irá funcionar, mas poderá substiruir pelo seguinte:

 

Bom faça um teste com as alterações surgeridas e veja se, retorna o resultado esperado.

 

 

vander, ao inves de abrir o recordset como statico , tente abrilo como dynamico