problema con conexion con mysql

[Warfare]

Private Sub log_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles log.Click
Dim cxnstring As String = "Server=localhost;Database=datos;Uid=root;Pwd=peludita;" 'esta es la cadena de conexion a la base de datos
Dim query As String = "SELECT * FROM usuarios" 'esta es una consulta para cargar datos a las listas
Dim con As New MySqlConnection(cxnstring) ' aca se crea la conexion con la variable con
Dim consulta As New MySqlCommand(query) ' se escribe la consulta en un data adapter para poder ponerlo en la lista
Dim dr As MySql.Data.MySqlClient.MySqlDataReader ' se crea un datareader
Try
con.Open()
If con.State = ConnectionState.Open Then
dr = consulta.ExecuteReader
While dr.Read = True
If (user.Text = dr("username")) And (password.Text = dr("password")) Then
MsgBox("bienvenido " & dr("nombre") & " " & dr("apellido"))
End If
con.Close()
End While
End If
Catch ex As Exception
MsgBox(ex.Message)

End Try

End Sub

me da problemas cuando va a hacer la comprobacion dice que la conexion debe de estar abierta o valida
sera el conexion timeout?