Select distinct field1 from table....

解决方案 »

  1.   

    同意 netfor2000(云鹤) 
    你在硬盘里搜索Jetsql35.hlp这个文件并双击打开就可以学习SQL了.
      

  2.   

    Dim kcNum As Long
    Dim i As Long
    Adodc1.ConnectionString = SN
    Adodc1.RecordSource = "select field1 from mytable group by field1"
    Adodc1.Refresh
    kcNum = Adodc1.Recordset.RecordCount
    For i = 1 To kcNum
        Combo1.List(i - 1) = Adodc1.Recordset.Fields(0)
        Adodc1.Recordset.MoveNext
    Next i