Izpis po datumu

ojla... jst ti mam podobno kodo preko ADO.net kontrole... Ta koda, ki dela pod vb.net je zellooo drugacna odone v 6( ithink) ker pr men niti ena zadeva iz vb 6 ne dela prav.. no evo kode daj jo pa pod gumbeka :)

cist na zacetku pa moras napisat
imports system.data.oledb

--tole dj pa pod nevem.. gumbek :)
'da vidimo ce lahko išče
Dim cnn As New ADODB.Connection()
Dim rst As New ADODB.Recordset()
Dim polje As ADODB.Field

Dim vhod


cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Documents and Settings\Tilen Turnšek\Desktop\db2\db.mdb;")
'tule pod where napises pogoj v mojem priemru je ime v tvojem bo pa datum!
vhod = "SELECT * FROM Kontakti WHERE ime=" & "'" & TextBox1.Text & "'"
'tule lahko podas VSE vhodne filtre za izpis podatkov na rekordset...
rst.Open(vhod, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)

Dim dbb As OleDbDataAdapter = New OleDbDataAdapter()
Dim dda As DataSet = New DataSet()

dbb.Fill(dda, rst, "kontakti")
DataGrid1.DataSource = dda.Tables(0)

cnn.Close()

lp