Pomoć za Event Procedure ( Command Buton )

Pozdrav
Imam na formi dugme koji mi izveze podatke iz tablice.
Tablica ima polja po redu:Id,Prezime,Ime,Adresa,Grad,Telefon Fiksni,Telefon Mobilni

Private Sub Command0_Click()
Dim DB As Database
Dim rs As Recordset
Dim txt As String

Set DB = CurrentDb
Set rs = DB.OpenRecordset("kontakt lista")
Open "C:\imena.csv" For Output Shared As #1
txt = "Id;Prezime;Ime;Adresa;Grad;Telefon Fiksni;Telefon Mobilni"
Print #1, txt
Do While Not rs.EOF
txt = rs.Fields(0) & ";" & rs.Fields(1) & ";" & rs.Fields(2) & ";" & rs.Fields(3) & ";" & rs.Fields(4) & ";" & rs.Fields(5) & ";" & rs.Fields(6)

Print #1, txt
rs.MoveNext
Loop
rs.Close

Close #1
End Sub
Kako da izmjenim ovaj Event Procedure jer želim podatke na preskok znači samo iz tabele polja Prezime,Adresa,Telefon Mobilni
Hvala

Da,bas kao sto ti je Mikaras odgovori . A ti druze pokusaj da sada ovaj kod za Event razlozis i napises komentare pa ces videti sta ti je ciniti sledeceg puta kad naidjes na kod koji ti nije jasan.