Private Sub Form_Load()
    Dim db As Database
    Dim rs As Recordset
    Dim i As Integer
    Dim suche As String
 
    Show
    suche = "Re"
 
    Set db = Workspaces(0).OpenDatabase("C:\Programme\Microsoft Visual" & _
      "Studio\VB98\BIBLIO.MDB")
    Set rs = db.OpenRecordset("SELECT Name FROM Publishers WHERE Name LIKE '*" _
    & suche & "*' ")
 
    With rs
        If .RecordCount > 0 Then
            .MoveLast
            .MoveFirst
        End If
 
        For i = 1 To .RecordCount
            Me.Print !Name
            .MoveNext
        Next i
    End With
End Sub