>HiDE-Adaさん
HiDE-Adaさんの責任では無いです。
迷惑をかけて本当にすみません。

>ログインはできるかと思います。
Hide-Adaさんの指示通りに入力しましたが、

 with UserInfo

	.ID = id

	.UserName = RESULT

 end with

の.IDと.UserNameの箇所で「Login.UserInfoのメンバーではありません」というエラーが表示されてしまいます。
残りのスタートアップフォームの指摘は問題ありませんでしたが、FMLogin,FMBase,UserInfoの全コードを記載します。

>オブジェクトへと表示が変わります。
チェックを外してModuke1.vbの作成しました。

>魔界の仮面弁士さん

>これは非常にマズイです。
TextBoxの値でプログラムを実行してから初めてFMBaseを読み込んだのか、それともFMLoginからFMBaseの読み込みなのかの判断を付けようと考えていましたが、Hide-Adaさんの指示を受けてコードの修正を行うと自分が欲しい流れになりました。
(最初にFMBaseを読み込んだ際にFMBase画面を非表示にし、FMLoign画面を表示。ログイン成功時にはFMLogin画面を非表示にしFMBase画面を表示させる)
細かい説明まで頂いて大変失礼ですが、Hide-Adaさんの案を取る事にします。

>利用者はそれらと異なる文字列を、【間違えて入力してしまう】（あるいは意図的な誤入力などの）恐れがあります

自分が言っていたのでは確かに「作成時」の法則で「入力時」の制限ではありませんでした。
ＳＱＬの脆弱性の事ばかり考えていたので、利用者側の目線から見ずに問題解決していたと思っていました。
指摘を受けて修正しました。

>この CheckUser 関数は、戻り値として何を返したいのでしょうか?
ユーザー名を文字列で返したいので As Stringに変更しました。

> Return BBB '「RESULT <> 0」にするとString "横横太郎       " から型 'Boolean' への変換は無効です。とエラー。

すみません。此方の入力ミスです。
指摘通りに、
「RESULT <> 0」にするとString "横横太郎       " から型 'Double' への変換は無効です。
が正しいエラー内容でした。

>修正の方向性が間違っています。
Function CheckUserの戻り値と言うのは、戻り値として何を返したいのでしょうか？の質問で As Stringに変更したので大丈夫でしょうか？