BAGRAну ответте что-нибудь есть такая функция, которая определяет пароль
текущего пользователя или нет?

Мне надо вот енто сделать:

Dim con As New ADODB.Connection
con.Open "Provider=SQLOLEDB;Data Source=COMMSQL;database=invest;uid=" _
& CurrentUser() & ";pwd=" & CurrentPassword () & ";"

Ну и кто бы тогда мешал получить список всех паролей и жить припеваючи, если б такая функция была?
CurrentUser() в БД Аксесс вернет пользователя приложения, а не login SQL. Установи доверительные отношения с серваком (аутентификация винды + SQL) и проверяй там. Или выводи форму, где пользователь введет пароль, который можно подставить в строку подключения.