Comment récupérer l premier colonne aidé-moi

Bonjour,
le probleme c est :
que j'ai une table employé (access ) elle ce compose de 5 ligne et 4 colonne
les textbox retourné les dernières résultat malgré GetInt32(0)

num / nom / prenom / fonction

1 / aa /...........................
2 / bb /...........................
3 / cc /..........................
4 / dd /..............................
5 / ee /..............................

Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim r As OleDbDataReader
cn.ConnectionString = (" provider= microsoft.jet.oledb.4.0;data source=" & "C:\Documents and Settings\sbiyou\Bureau\tp" & "\" & "bdtp1.mdb;")
Try
cn.Open()
MessageBox.Show(cn.State)
cmd.CommandType = CommandType.Text
cmd.CommandText = "select *from employe"
cmd.Connection = cn
r = cmd.ExecuteReader

While r.Read()
TextBox1.Text = r.GetInt32(0) "num"
TextBox2.Text = r.GetString(1) "nom"
TextBox3.Text = r.GetString(2) "prenom"

ComboBox1.Items.Add(r("fonction"))
ComboBox2.Items.Add(r("num"))
End While
r.Close()
cn.Close()
Catch ex As Exception
MsgBox("connection invalide" & ex.Message)
End Try
cn.Close()
cn.Open()