运行环境VBA
QRY_USERINF_SEL:是已经提供好的select语句.
Execute(,)里的参数不会请大家帮忙看看

Private Const QRY_USERINF_SEL = "QRY_要員情報_ワーク_SELECT1"
Private Sub DINWKR1()

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command

Dim WK_基準年月  As String  
 
Set con = CurrentProject.Connection
cmd.ActiveConnection = con

cmd.CommandText = QRY_USERINF_SEL
[u]Set rs = cmd.Execute(,)[/u]
  
WK_基準年月 = rs.Fields("基準年月").Value         
 
Set rs = Nothing
Set con = Nothing

End Sub