Grid1.Columns(1).Align = ALIGN_RIGHT  ' 1. Spalte rechtsbündig
Grid1.Columns(2).Align = ALIGN_CENTER  ' 2. Spalte zentriert

Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long)
  Dim oRs As Recordset
 
  With Grid1
    ' Jetzt ComboBox mit Werten füllen
    If .Columns(nCol).Key = "anrede" Then
      Set oRs = Db.OpenRecordset("SELECT Anrede FROM Tabelle ORDER BY Anrede")
      If oRs.RecordCount >  0 Then
        Do
          .ComboAddItem oRs.Fields(0)
          oRs.MoveNext
        Loop Until oRs.Eof
      End If
      oRs.Close
      Set oRs = Nothing
    End If
  End With
End Sub

' Inhalt der 2. Spalte der 4. Zeile ermitteln
Dim sText As String
sText = Grid1.Text(4, 2)

Dim oRs As Recordset
Set oRs = oDB.OpenRecordset("SELECT SUM(Preise) As Summe FROM Tabelle")
If oRs.RecordCount > 0 Then
  lblSumme.Caption = FormatNumber(oRs.Fields(0), 2)
End If
oRs.Close
Set oRs = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de