Option Explicit
Option Compare Database
 
 
Private Sub Form_Load()
  Dim sSQL As String
  Dim oRs As DAO.Recordset
 
 
  ' Recordset-Objekt erstellen
  sSQL = "SELECT  GarntraegertypNr, Huelsenformat  FROM  dbo.tblAufmachung"
 
  Set oRs = Currentdb.OpenRecordset(sSQL, dbOpenDynaset)
 
 
  With Grid1
    ' autom. Neuzeichnen ausschalten
    .LockUpdate True
 
 
    ' Recordset-Kopie erstellen
    .CreateClone = True
 
    ' Recordset zuweisen
    .Clear True
    Set .Recordset = oRs
 
 
    ' Spaltenbreiten festlegen
    .Columns(1).Width = 800
    .Columns(2).Width = 1500
 
 
    ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
    .ReadColumnWidth "MyApplication", "Grid1", "ColWidths"
 
    ' autom. Sortierung aktivieren
    .AutoSort = True
 
    ' nach Feld "Huelsenformat  " sortieren
    .DoSort "Huelsenformat  "
 
    ' Mehrfachselektion zulassen
    .AllowMultiSelect = True
 
    ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
    .AllowEdit = True
    .AutoUpdate = True
    .AllowDelete = True
 
    ' interaktives Ändern der Spaltenbreiten zulassen
    .AllowColumnSizing = True
 
    ' Drag & Drop von Spalten zulassen
    .AllowColumnReorder = True
 
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
    .Refresh
 
    ' 1. Zeile selektieren
    .Row = 1
 
    ' ursprüngliches Recordset zerstören
    oRs.Close
    Set oRs = Nothing
  End With
End Sub

Private Sub Form_Load()
  ' Datenbank öffnen
  Set oDB = DBEngine.OpenDatabase(App.Path & "\KUNDEN.MDB")
 
  With Grid1
    .LockUpdate True
    .DataMode = Mode_Recordset
 
    ' Recordset zuweisen
    Set .Recordset = oDB.OpenRecordset("SELECT * FROM tblKunden")
 
    ' ID-Spalte ausblenden
    .Columns("ID").Visible = False
 
    ' Spalten-Eigenschaften festlegen
    With .Columns("PLZID")
      .Width = 1000
      .ColType = TYPE_COMBOBOX
      .MaxInputLength = 8
      .Align = ALIGNMENT_LEFT
      .HeadAlign = ALIGNMENT_LEFT
      .InputType = INPUT_TEXT
    End With
 
    ' Ungebundene Spalte für die Anzeige des Ortes hinzufügen
    With .ColumnAdd("Ort", "Ort")
      .Position = 7
      .LockEdit = True
    End With
 
    ' PLZ-Tabelle öffnen
    Set oRsPLZ = oDB.OpenRecordset("tblPLZ")
    oRsPLZ.Index = "ID"
 
    .LockUpdate False
    .Refresh
  End With
End Sub

Progrmammierer auf SQL-Server und ACCESS (vba und .Net)
Interessen Skifahren, Fliegenfischen, Kino, Theater, klassische Konzerte