Dim cn As New ADODB.Connection
Dim strCnn As String
Dim ergebnis As New ADODB.RecordSet
Dim sqlstr As String
 
strCnn = "Provider=MSDASQL.1;Data source= UMIS;User ID=;Password="
cn.Open strCnn
 
sqlstr = "SELECT DISTINCT GRUPPE_BODEN FROM dbo.a_stoffkatalog$ WHERE BODEN = 1"
Set ergebnis = cn.Execute(sqlstr)
 
Do Until ergebnis.EOF
 cboNeueParameter.Text = ergebnis.GetString ' zeigt alle Werte aus ergebnis in 
 ' einer Zeile an
Loop