Option Explicit
Private db As ADODB.Connection
Private RecordSet As ADODB.RecordSet
Public sFilter As String
 
Private Sub Form_Load()
  Set db = New ADODB.Connection
  Set RecordSet = New ADODB.RecordSet
  Dim iAnzeige
  Dim iLine As Integer
  Dim lsDSN As String
  Dim lsName As String
  Dim lsSQL As String
 
  lsDSN = "Driver=SQL Server; DATABASE=" + "Datenbank" + ";SERVER=" + "."
 
  db.ConnectionString = lsDSN
 
  db.Open lsDSN, "sa", ""
 
  lsSQL = "SELECT Matchcode, Name1, Name2, Lieferstraße, Lieferort FROM" & _
    "KHKAdressen (NOLOCK) WHERE Name1 LIKE '" & sFilter & "%" & "'"
 
  RecordSet.Open lsSQL, db, adOpenDynamic, adLockReadOnly
 
  grdAnzeige.Clear
 
  Set grdAnzeige.DataSource = RecordSet
    If RecordSet.EOF Then
      MsgBox "Es wurden keine Datensätze gefunden, bitte versuchen Sie es" & _
        "erneut!"
      Exit Sub
    End If
 
      iAnzeige = RecordSet.Fields.Count
      iLine = 1
      grdAnzeige.ColWidth(1) = 3500
      grdAnzeige.ColWidth(2) = 3500
      grdAnzeige.ColWidth(3) = 2500
      grdAnzeige.ColWidth(4) = 2500
 
      grdAnzeige.ColAlignment(1) = 1
      grdAnzeige.ColAlignment(2) = 1
      grdAnzeige.ColAlignment(3) = 1
      grdAnzeige.ColAlignment(4) = 1
 
      grdAnzeige.Row = 0
      grdAnzeige.Col = 0
      grdAnzeige.Text = "Matchcode."
      grdAnzeige.Col = 1
      grdAnzeige.Text = "Name1"
      grdAnzeige.Col = 2
      grdAnzeige.Text = "Name2"
      grdAnzeige.Col = 3
      grdAnzeige.Text = "Lieferstraße"
      grdAnzeige.Col = 4
      grdAnzeige.Text = "Lieferort"
 
    grdAnzeige.Rows = RecordSet.RecordCount + 2
    While Not RecordSet.EOF
      RecordSet.MoveNext
      iLine = iLine + 1
    Wend
 
    grdAnzeige.Rows = iLine
 
    RecordSet.MoveFirst
    iLine = 1
    While Not RecordSet.EOF
        iAnzeige = iAnzeige + 1
        grdAnzeige.Row = iLine
        grdAnzeige.Col = 0
        grdAnzeige.Text = "" & RecordSet("Matchcode")
        grdAnzeige.Col = 1
        grdAnzeige.Text = "" & RecordSet("Name1")
        grdAnzeige.Col = 2
        grdAnzeige.Text = "" & RecordSet("Name2")
        grdAnzeige.Col = 3
        grdAnzeige.Text = "" & RecordSet("Lieferstraße")
        grdAnzeige.Col = 4
        grdAnzeige.Text = "" & RecordSet("Lieferort")
        iLine = iLine + 1
          RecordSet.MoveNext
    Wend
End Sub