ACCESSのBeforeUpdate、Callでのエラー、フォームデザインについて。

Question

ACCESSについての質問です。３つあります。
１つでもよいので教えてください！

１．コンボについて。
コンボでテーブルから２つ値を表示し、

Aコンボ = [Aコンボ].[Column](0) & "◎△×" & [Aコンボ].[Column](1)

のように、選択した値の間に ◎△× を入れて表示したいと思っています。
ただし、例えば下のようにチェック項目を入れたいと思います。

しかし、この中にAコンボ = [Aコンボ].Column & "◎△×" & [Aコンボ].Column
書くとエラーになってしまいまして、困っています。

チェックでエラーが起きても起きなくても、[Aコンボ].Column & "◎△×" & [Aコンボ].Column
の形式で表示させるにはどうしたらよいでしょうか？

Private Sub Aコンボ_BeforeUpdate(Cancel As Integer)
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim mySQL As String      

    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset

    mySQL = "SELECT * FROM tableA WHERE comboA = '" & Left(Aコンボ.Value, 5) & "';"
    rs.Open mySQL, cn, adOpenKeyset

    If rs.RecordCount = 0 Then
        MsgBox "エラー"
        Cancel = True

    End If
    rs.CLOSE
    Set rs = Nothing
    cn.CLOSE
    Set cn = Nothing

End Sub

２．Callした後の処理について

例えば１．で使用したAコンボ_BeforeUpdateをCallで呼び出し、
If rs.RecordCount = 0 Then
MsgBox "エラー"
Cancel = True

とエラーが起きた場合、そこで処理を終わらせたいと考えています。
しかし今のままだと、MsgBox "続き" が表示されてしまいます。

MsgBox "エラー"で終わらせ、フォーカスもAコンボに移すにはどうしたらよいでしょうか？

Private Sub コンボ_Click()

Call Aコンボ_BeforeUpdate(0)
MsgBox "続き"

略

３．フォームデザインについて。

テキストフィールドで、
□で囲うようなデザインでなく、
＿＿＿のような、下線部だけの見た目にしたいです。

色々試したのですが、□になるか、まっさらな何もないデザインになるかしかできないので
教えて頂けるとありがたいです。