Dim sql_test1 As String
sql_test1 = "Select DISTINCT Grafik_A, Grafik_B, Grafik_C FROM Tabelle_A"
If OpenRecordset(mRs, mConn, sql_test1, adOpenStatic, adUseClient, _
  adLockOptimistic) Then
  Do Until mRs.EOF
  Combo1.AddItem mRs.Fields("Grafik_A" & ", " & "Grafik_B" & ", " & "Grafik_C" )
  mRs.MoveNext
  Loop
End If