Private Sub Command1_Click()
Dim sql As String
 
   'define SQL query
    sql = "select distinct Werk from Produktion;"
 
   'specify format of SQL result and assisgn to ADODC
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = sql
    Adodc1.Refresh
 
   'Übergabe an ein vb Standard DataGrid
    Set DataGrid1.DataSource = Adodc1
 
End Sub