' Globale Variablen
 
' Datenbank-Connection + Recordset Objekt
Public oConn As ADODB.Connection
Public oRs As ADODB.Recordset

' Datenbank öffnen
Set oConn = New ADODB.Connection
oConn.CursorLocation = adUseClient
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & App.Path & "\data.mdb;" & _
  "Persist Security Info=False"

' Recordset erstellen und an DataGrid binden
Set oRs = New ADODB.Recordset
oRs.Open "SELECT * FROM mp3 WHERE titel LIKE '%" & txtTitel.Text & "%'", oConn, _
    adOpenStatic, adLockOptimistic
 
Set DataGrid1.DataSource = oRs

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de