SQL до MySQL в DataGridView

Question

Итак, я создал программу и связал ее с MySQL, и я пытаюсь создать класс, в котором, когда пользователь щелкает строку данных в представлении таблицы данных, он заполняет всю эту информацию. где они первоначально будут вводить информацию.

  Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

            Try
                If con.State = ConnectionState.Open Then
                    con.Close()
                End If
                con.Open()

                i = DataGridView1.SelectedCells.Item(0).Value.ToString()

                cmd = con.CreateCommand()
                cmd.CommandType = CommandType.Text
                cmd.CommandText = "select * from studentinfo where studprogram=" & i & ""
                cmd.ExecuteNonQuery()
                Dim dt As New DataTable()
                Dim da As New MySqlDataAdapter(cmd)
                da.Fill(dt)
                Dim dr As SqlClient.SqlDataReader
                dr = cmd.BeginExecuteReader(CommandBehavior.CloseConnection)
                While dr.Read
                    TBStudsiteName.Text = dr.GetString(1).ToString()
                    TBStudTFName.Text = dr.GetString(2).ToString()
                    TBStudTLName.Text = dr.GetString(3).ToString()
                    TBclassID.Text = dr.GetString(4).ToString()
                    TBStudID.Text = dr.GetString(5).ToString()
                    TBStudgender.Text = dr.GetString(6).ToString()
                    TBStudGage.Text = dr.GetString(7).ToString()
                    TBStudLang.Text = dr.GetString(8).ToString()
                    TBStudethnicity.Text = dr.GetString(9).ToString()
                    TBStudrace.Text = dr.GetString(10).ToString()
                    TBStudfundSource.Text = dr.GetString(11).ToString()
                    TBStudiep.Text = dr.GetString(12).ToString()
                    TBStudell.Text = dr.GetString(13).ToString()
                    TBStudage.Text = dr.GetString(14).ToString()
                    TBStudaddDate.Text = dr.GetString(15).ToString()
                    TBStudfName.Text = dr.GetString(16).ToString()
                    TBStudmName.Text = dr.GetString(17).ToString()
                    TBStudlName.Text = dr.GetString(18).ToString()

                End While
            Catch ex As Exception

            End Try


        End Sub