How to solve “No query in datareader” error?

Question

Consider the following code :

 answer = today.AddDays(356)
 Dim command1 As New MySqlCommand(\"Insert into UserScanner (Username,Password,Address,Contact,SubStar         


        

Answer 1

You might be missing a With statement here, like With dr1 right after the dr1.Read() line...but I would just change it like this:

Dim id as Integer = dr1(0)
Dim Username As String = dr1(1)