嘻嘻，十分问题？？？

Question

Dim G_Conn As New ADODB.Connection
Dim G_Rst As New ADODB.Recordset
G_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False"
SQL = "select count(distinct 字段) as ss from 123456 where 字段=" & CCur(txt3.Text) & ""
        Set G_Rst = G_Conn.Execute(SQL1)
        txt7.Text = G_Rst!sscount(distinct 字段) ？？？没有写对吗？

Answer 1

distinct和top关键字一样放在 select 后面 单独使用SQL = "select count(distinct 字段) as ss from 123456 where 字段=" & CCur改为SQL = "select distinct count(字段) as ss from 123456 where 字段=" & CCur