>>778
レスありがとうございます。
以下のEOFを追加してみると正しく１件データが
Label2に表示されました。

・
・
・
cnn.Open
Set rst = cnn.Execute(strSQL)

Do While Not rst.EOF
Label2.Caption = rst!Password
rst.MoveNext
Loop

If rst.RecordCount < 0 Then
Msgbox("A")
Else
Msgbox("B")
End If

End Sub