Private Sub suchtext_Change()
 
Dim suchen As String
suchen = Trim(suchtext.Text)
 
'Verbindungsaufbau
Set conn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
conn.Open "provider=msdasql;dsn=proj_x"
conn.CursorLocation = adUseClient
 
With rs
    .ActiveConnection = conn
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic 
    If suchen <> "" Then
    SQL = "select * from kunden where kunden_firma_name like '%" & suchen & "%'" & _
      "or kunden_kundennr like '%" & suchen & "%'or kunden_ort like '%" & _
      suchen & "%'order by Kunden_KundenNr"
     Else
     SQL = "select * from kunden order by Kunden_KundenNr"
     End If
 
    .Open SQL
End With
 
With Grid1
      ' autom. Neuzeichnen ausschalten
      .LockUpdate True
 
      ' Recordset zuweisen
      Set .Recordset = rs
 
      ' Zusätzliche Spalten-Eigenschaften festlegen
      .Columns(5).ColType = TYPE_COMBOBOX
 
      ' Spaltenbreiten festlegen
 
      .Columns(4).Width = 1500
      .Columns(5).Width = 1500
      .Columns(6).Width = 2500
      .Columns(7).Width = 2000
      .Columns(8).Width = 2000
      .Columns(9).Width = 1000
      .Columns(10).Width = 2000
 
      'Spalten ausblenden
      .Columns(1).Visible = False
      .Columns(2).Visible = False
      .Columns(3).Visible = False
      .Columns(11).Visible = False
      .Columns(12).Visible = False
      .Columns(13).Visible = False
      .Columns(14).Visible = False
      .Columns(15).Visible = False
      .Columns(16).Visible = False
      .Columns(17).Visible = False
      .Columns(18).Visible = False
      .Columns(19).Visible = False
      .Columns(20).Visible = False
      .Columns(21).Visible = False
 
      'Überschriften
      .Columns(4).Caption = "Kunden Nr."
      .Columns(5).Caption = "Anrede"
      .Columns(6).Caption = "Name"
      .Columns(7).Caption = "Zusatz"
      .Columns(8).Caption = "Strasse"
      .Columns(9).Caption = "PLZ"
      .Columns(10).Caption = "Ort"
 
 
      ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
      .ReadColumnWidth "MyApplication", "Grid1", "ColWidths"
 
      ' autom. Sortierung aktivieren
      .AutoSort = True
 
      ' nach Feld "Name" sortieren
      .DoSort "Kunden_kundennr"
 
      ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
      .AllowEdit = True
      .AutoUpdate = True
      .AllowDelete = True
 
      ' interaktives Ändern der Spaltenbreiten zulassen
      .AllowColumnSizing = True
 
      ' autom. Neuzeichnen einschalten
      .LockUpdate False
      .Refresh
 
      ' 1. Zeile selektieren
      .Row = 1
 
    End With
 
End Sub