Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select datepart(month,入库日期) from cplk where isdate(入库日期)=1", con, 1, 3
Set DataGrid1.DataSource = rs
数据库是ACCESS
入库日期这一列明明就有数据的..不知道是为什么

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select datepart(m,入库日期) from cplk where isdate(入库日期)=1", con, 1, 3
Set DataGrid1.DataSource = rs

这样试试?

一样换成mm 也是一样
出现这样的提示 以前有时候列输错了才有这样的提示

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select datepart(m,入库日期) 月份 from cplk where isdate(入库日期)=1", con, 1, 3
Set DataGrid1.DataSource = rs

这样呢?

一样的..

把where去掉看看.

去掉过了

把sql语句放到access里面去试

datepart和isdate在ACCESS用法和SQL里面一样的吗!

在rs.Open "select datepart(month,入库日期) from cplk where isdate(入库日期)=1", con, 1, 3中：
你的“con”是如何定义的？