Vb. net mysql connection error?

na msot megy :) meg 1 kerdes, csinaltam egy bejelentkezest az is megy de mindig az az erroromat dobja ki hogy hibas nev/jelszo Ez nem is baj mivel meg semmi felhasznalo nincsen, a regisztraciot leneztem netrol de nem megy ezzel mi a gond ?

Dim myAdapter As New MySqlDataAdapter

Dim myCommand As New MySqlCommand

Dim myData As MySqlDataReader

Dim add As String

Dim connect As MySqlConnection

connect = New MySqlConnection()

connect.ConnectionString = "server=db4free.net;Port=3306; User ID=naruto; password=jelszavam; database=narutoonline"

Dim usercheck As String = "SELECT Username FROM users WHERE username = '" + TextBox1.Text + "'"

Try

connect.Open()

Catch myerror As MySqlException

MsgBox("Error connecting to database. Check your internet connection.", MsgBoxStyle.Critical)

End Try

Try

myCommand.Connection = connect

myCommand.CommandText = usercheck

myAdapter.SelectCommand = myCommand

myData = myCommand.ExecuteReader

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

If myData.HasRows = 0 Then

add = "INSERT INTO users (username, password) VALUES('" + TextBox1.Text + "','" + TextBox2.Text + "')"

MsgBox("sikeres regi")

Else

MsgBox(TextBox1.Text & " is being register, try again.", MsgBoxStyle.Information)

End If

connect.Close()

Ki is irja nekem h regiztem de nem adja a tablaban a username es a password hoz sem az adatot