Dim oRs, oADORs As ADODB.Recordset
  Dim sSQL As String
 
  ' Connection zur Access-MDB
  Set oConn = New ADODB.Connection
  oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...;Jet" & _
    "OLEDB:System                         Database=c:\....mdw;User" & _
    "ID=...;Password=...;"
 
  ' SQL-Abfragestring
  sSQL = "SELECT distinct werk from produktion"
 
  ' Recordset erstellen
  Set oRs = New ADODB.Recordset
 
  oRs.CursorLocation = adUseClient
  oRs.Open sSQL, oConn, adOpenStatic
  oRs.MoveFirst
    Do While Not oRs.EOF
        sevGrid1.AddItem oRs![werk]
        oRs.MoveNext
    Loop
   oConn.Close