ERRO LOGIN VBA MYSQL

QUENIO 06/01/2013 03:59:58
#416811

boa noite a todos

bom estou com um erro nessa linha e ja tentei de tudo e no entanto continuo tendo a mensagem de erro

Private Sub cmdok_Click()


sql = [Ô]SELECT * FROM USUARIO[Ô]
sql = sql & [Ô] WHERE login =[ô][Ô] & TxtUsuario.Text & [Ô][ô][Ô]
Set TABELA(0) = New ADODB.Recordset
TABELA(0).Open sql, banco, adOpenKeyset, adLockOptimistic _________________> aqui

If TABELA(0).RecordCount = 0 Then [ô]se não enbancotrar o usuario
MsgBox [Ô]Usuário não enbancotrado.[Ô], vbCritical, [Ô]Erro[Ô]
TABELA(0).Close
Set TABELA(0) = Nothing
banco.Close
Exit Sub [ô] encerra o procedimento aqui mesmo
End If

If TABELA(0)([Ô]senha[Ô]) = TxtSenha.Text Then
MsgBox [Ô]Seja bem vindo: [Ô] & TxtUsuario.Text, vbInformation, [Ô]Acesso ao Sistema[Ô]
TABELA(0).Close
Set TABELA(0) = Nothing
banco.Close
Unload Me
[ô]E abre o formulario principal do sistema
Else
MsgBox [Ô]Senha incorreta.[Ô], vbCritical, [Ô]Erro[Ô]
TABELA(0).Close
Set TABELA(0) = Nothing
banco.Close

End If
End Sub

alguem pode me ajudar

obrigado desde ja