Private Sub AddToFG()
  proRST.MoveFirst
 
  With MSFlexGrid1
 
    While Not proRST.EOF
      .AddItem (proRST.Fields("ID").Value & vbTab & _
                proRST.Fields("IDENT").Value & vbTab & _
                proRST.Fields("PName").Value & vbTab & _
                proRST.Fields("Beschreibung").Value & vbTab & _
                proRST.Fields("Adresse").Value & vbTab & _
                Format(proRST.Fields("EL_Std").Value, "#,##0.00 €") & vbTab & _
                Format(proRST.Fields("BL_Std").Value, "#,##0.00 €") & vbTab & _
                Format(proRST.Fields("NUL_Std").Value, "#,##0.00 €") & vbTab & _
                Format(proRST.Fields("BK_P").Value, "#,##0.00") & vbTab & _
                Format(proRST.Fields("RDB_P").Value, "#,##0.00") & vbTab & _
                proRST.AbsolutePosition)
              ' Speichern der Aktuellen Position in Grid
              ' scheint zu klappen zeigt 1 2 3 ....
      proRST.MoveNext
    Wend
    .RemoveItem 1 ' Damit 1.leere Zeile im Grid verschwindet
  End With
  proRST.MoveFirst ' Um Textboxen mit dem 1. rst zu füllen
 
End Sub
 
 
Private Sub MSFlexGrid1_RowColChange()
  With MSFlexGrid1
     cmbOpen.Enabled = .TextMatrix(.Row, 1) <> ""
     cmbEdit.Enabled = .TextMatrix(.Row, 1) <> ""
     cmbDel.Enabled = .TextMatrix(.Row, 1) <> "" And .Row >= 2
     lblProjekt = .TextMatrix(.Row, 1) & " - " & .TextMatrix(.Row, 2)
 
    proRST.AbsolutePosition = Val(.TextMatrix(.Row, 10))
    ' proRST.Move = Val(.TextMatrix(.Row, 10))
    ' Setzen des Zeigers zum Gespeicherten RS klappt nicht
    ' Click in ein und dieselbe Zeile gekt durch alle Datenzeilen
    ' bis dann Fehler BOF oder EOF ausgelöst wird.
    ' Fast wie bei proRST.MoveFirst
    '              proRST.MoveNext
    '              proRST.MoveNext
    '              proRST.MoveNext
    '              proRST.MoveNext usw.
 
  End With