Запись значения переменной

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim i As Integer
        Dim conn As New MySqlConnection
        Dim rec As New DataSet
        Dim sql As String = "Select * From zaposleni"
        Dim da As New MySqlDataAdapter(sql, conn)
 
        Try
            If conn.State = ConnectionState.Closed Then
                conn.ConnectionString = "DATABASE=dlhe_spk;SERVER=localhost;user id=root;password=kopans"
 
                conn.Open()
                da.Fill(rec, "zaposleni")
                conn.Close()
            End If
        Catch myerror As Exception
            MsgBox("Соединение не удалось! программа будет закрыта" & vbNewLine & myerror.Message, 48, "Ошибка!")
            End
        End Try
 
        i = i + 1
 
        TextBox9.Text = rec.Tables("zaposleni").Rows(i).Item(0)
        TextBox1.Text = rec.Tables("zaposleni").Rows(i).Item(3)
        TextBox2.Text = rec.Tables("zaposleni").Rows(i).Item(1)
        TextBox3.Text = rec.Tables("zaposleni").Rows(i).Item(2)
        TextBox4.Text = rec.Tables("zaposleni").Rows(i).Item(4)
        TextBox5.Text = rec.Tables("zaposleni").Rows(i).Item(5)
        TextBox6.Text = rec.Tables("zaposleni").Rows(i).Item(20)
        TextBox7.Text = rec.Tables("zaposleni").Rows(i).Item(23)
        TextBox8.Text = rec.Tables("zaposleni").Rows(i).Item(25)
 
 
    End Sub