Dim query As String = "SELECT * FROM users WHERE UserName = @uid"
Dim row As IDataRecord

Using conn As New MySqlConnection(connstr)
            conn.Open()
            Dim cmd As New MySqlCommand(query, conn)
            cmd.Parameters.AddWithValue("@uid", txtName.Text)
            row = cmd.ExecuteReader
        End Using