vb.net ado...

eh sm sm prokuzo ;)

dv = New DataView(dda.Tables("kontakti"))

dv.RowFilter = "ime Like '" & data & "*'"
tole je "rešitev" ;).. vseen hvala

ola... ja... Domnevam da delaš v VB.net ;)... ko se je uiber spremenil kar se.. vsega? tiče.. jah znam filat ja.. prvo ti bom en link tule bos našel večino kar rabiš(vsaj jst sm...)...

tule pa mas funkcijo za filanje po nekem iskalnem kriteriju :)

Dim cnn As New ADODB.Connection()
Dim rst As New ADODB.Recordset()

Dim kriterij
Private Sub PokaziVnose(ByVal tip, ByVal data)
'pokazemo vnose glede nakriterije...

'spremenljivke
Dim dbb As OleDbDataAdapter = New OleDbDataAdapter()
Dim dda As DataSet = New DataSet("Kontakti")
Dim dv As New DataView()

tip = UCase(tip)

cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Application.StartupPath & "\Data\amar.mdb;")

kriterij = "SELECT Ime, Priimek, Naslov, Mesto, PostnaStevilka, Drzava, Tel, Fax, Email, RojDan FROM Kontakti"

rst.Open(kriterij, cnn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

If rst.EOF Then
cnn.Close()
Exit Sub
End If

dbb.Fill(dda, rst, "Kontakti")

Select Case tip
Case "IME"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "ime Like '" & data & "*'"
Case "PRIIMEK"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "priimek Like '" & data & "*'"
Case "NASLOV"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "naslov Like '" & data & "*'"
Case "MESTO"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "mesto Like '" & data & "*'"
Case "POŠTA"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "postnastevilka Like '" & data & "*'"
Case "DRŽAVA"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "drzava Like '" & data & "*'"
Case "TELEFONSKA"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "tel Like '" & data & "*'"
Case "FAX"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "fax Like '" & data & "*'"
Case "EMAIL"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "email Like '" & data & "*'"
Case "ROJSTNI DATUM"
dv = New DataView(dda.Tables("kontakti"))
dv.RowFilter = "rojdan Like '" & data & "*'"
Case "VSE"
dv = New DataView(dda.Tables("kontakti"))
End Select

'finishiramo zadevico... izpisemo vse ka smo našli
DataGrid1.DataSource = dv

cnn.Close()
End Sub

--------
upam da ti kj pomaga.. če ne pa ti lahko cel program sendam na mail.. ajd