Conexão login e senha mysql não funciona!

Bom galera há algum tempo atrás um amigo aqui do fórum me ajudou, e consegui resolver, porém agora o código não está mais funcionando! Só dá login e senha inválidos, não loga! Alguém poderia me ajudar?

Ai está o código:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'PARTE DA CONEXÃO COM O BANCO DE DADOS

Dim CONEXAO As MySqlConnection = New MySqlConnection("SERVER=localhost;user id=root;password=;database=vaadministration")

 Dim COMMAND As MySqlCommand = New MySqlCommand("SELECT * FROM users WHERE login = '" & TextBoxLogin.Text & "' AND senha = '" & TextBoxSenha.Text & "'", CONEXAO)
 Dim ADAPTADOR As MySqlDataAdapter = New MySqlDataAdapter(COMMAND)
 Dim DADOS As New DataTable()
 Try

 If TextBoxLogin.Text = "" And TextBoxSenha.Text = "" Then
 MsgBox("Campos Login e Senha não podem ficar em brancos!")
 End If

 'SENHA PARA POSSÍVEIS MANUTENÇÕES QUE VENHA HAVER COM RESPEITO AO PROGRAMA (CASO PESSOA ESQUEÇA A SENHA) OBS.: ALTERAR SENHA AO FINAL DO PROJETO!!!!!!
 If TextBoxLogin.Text = "Admin" And TextBoxSenha.Text = "admin" Then
 CFP.Show()
 Me.Hide()
 MsgBox("LOGADO COMO ADMINISTRADOR DO PROGRAMA!")
 End If

 CONEXAO.Open()

 If DADOS.Rows.Count > 0 Then
 'TEM USUÁRIO REGISTRADO
 CFP.Show()
 Me.Hide()
 Else
 'NÃO TEM USUÁRIO REGISTRADO
 MsgBox("INVALID LOGIN OR PASSWORD RETRY")
 End If

 CONEXAO.Close()

 Catch erro As Exception

 MsgBox(erro.Message)

 End Try

 End Sub

O que há de errado com o código pessoal???