Private Sub Command1_Click()
'Datenbank Volltext Suche
Dim sname As String
Dim recz As Integer
sname = Text1.Text
 
If Text1.Text = "" Then
MsgBox "Sie müssen zuerst einen Suchbegriff eingeben !"
Exit Sub
Else
  ' Recordset erstellen und öffnen
  Set Rs = New ADODB.Recordset
  Rs.Open "SELECT * FROM tblDVD WHERE titel like '" + sname + "'", Conn, _
    adOpenStatic, adLockOptimistic
 
 
  recz = Rs.RecordCount
  If Rs.RecordCount = 0 Then
  MsgBox "Es wurde kein Eintrag gefunden der den Suchtext enthält !"
  Exit Sub
  Else
  MsgBox "Es wurden" & Chr(32) & recz & Chr(32) & "Einträge gefunden die den" & _
    "Suchtext enthalten !"
With DataGrid1
.Refresh
 
    ' Titel der Tabelle
    .Caption = "Suchergebnis"
 
    ' Datenanbindung
    Set .DataSource = Rs
 
    'Spaltentitel
    .Columns(0).Caption = "ID"
    .Columns(1).Caption = "DVD-Nr."
    .Columns(2).Caption = "DVD Titel"
    .Columns(3).Caption = "Länge"
    .Columns(4).Caption = "Genre"
    .Columns(5).Caption = "FSK"
    .Columns(6).Caption = "Verleih"
    .Columns(7).Caption = "Ausleiher-Nr."
    .Columns(8).Caption = "Leih-Datum"
 
 
    ' Spaltenbreiten 6975 twips
    .Columns(0).Width = 0
    .Columns(1).Width = 700
    .Columns(2).Width = 3400
 
    .Columns(3).Width = 600
    .Columns(4).Width = 1000
    .Columns(5).Width = 0
    .Columns(6).Width = 700
    .Columns(7).Width = 0
 
    .Columns(8).Width = 0
 
 
    ' Spaltenausrichtung
    .Columns(2).Alignment = dbgCenter
    .Columns(4).Alignment = dbgRight
 
    ' Spaltenformat
    .Columns(4).NumberFormat = "0.00"
  End With
 
End If
End If
 
End Sub