vb6 +Access db insert into entire collum

[Chrisad]

hi i have a form with :

DataGrid1
Adodc1
textbox
Command2


on form load i have this code :

Private Sub Form_Load()

Adodc1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\Database\data.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=password")
Adodc1.RecordSource = "Select * from phonia"
Set DataGrid1.DataSource = Adodc1

End Sub

i want at Private Sub Command2_Click()

to insert into table phonia and colum 2008 the value of text1.text
but i want to insert the value at entire collum

sample : if text1.text = 2

table phonia

colum1 | 2008 |

mike 2
suzan 2
nick 2
george 2
clif 2

something like that.

in entire colum 2008 i want to insert velue text1.text

thanks