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