Option Explicit
Dim oRs As ADODB.Recordset
 
Private Sub Form_Load()
  Dim i As Long
 
  Set oRs = New ADODB.Recordset
  With oRs
    .Fields.Append "id", adInteger
    .Fields.Append "bez", adVarChar, 30
    .Open
    For i = 1 To 10
      .AddNew
      .Fields(0) = i
      .Fields(1) = "Bez " & CStr(i)
      .Update
    Next i
  End With
 
  With Grid1
    .LockUpdate True
    Set .Recordset = oRs
    .LockUpdate False
    .Refresh
  End With
End Sub

Private Sub Command1_Click()
  Grid1.Columns(2).Position = 1
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de