以下のような感じで如何でしょうか。
当方で動作確認したらオッケーでしたよ。
' 以下ソース-------------
Private Sub 抽出採用日_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cSimei As String
Dim cnt As Long
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.ActiveConnection = cn
rs.Open "テーブル", cn
rs.MoveFirst
cnt = 0
Do Until rs.EOF
If rs![役職] = "13002" And rs![採用日] = #4/4/2001# And rs![所属] = "9999" Then
MsgBox rs![氏名] & "だよ"
cnt = cnt + 1
End If
rs.MoveNext
Loop
If cnt = 0 Then
MsgBox "該当ナシ"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
' ココマデ-----------------
日付型の扱いはやっかいです。
M$の例の2001年問題もありますし。
Windowsの日付書式の設定(コンパネ→地域→日付→短い形式、のトコね）
も確認してみてくださいね。
お礼
早速のお答えありがとうございました。 私の説明不足だったのですが、実は、3つの条件はテキストボックスに入力しているのですが、ご教示いただいた構文は、任意のコードや、日付にも対応できるのでしょうか? それと、現在私が記述した構文ではまったくダメなのでしょうか?(できれば、この構文をいかしたいのですが)わがままで、すいません。