' 核對用戶名

    MyRs0.FindFirst "Trim(Mc) = '" & StrUse & "'"
    If MyRs0.NoMatch Then
       intLgn = intLgn - 1                                     ' 無
       If intLgn = 0 Then
          BlnKlf = False                                       ' 用戶名不符
       Else
          MsgBox "  請再輸入一次用戶名 ... ", 48, "  登錄錯誤 " & IIf(intLgn = 1, "!!", "!")
          Text1.Text = ""
          Text1.SetFocus
       End If
    Else
       BlnKlf = True
       intLgn = 3
    End If


    引用：   Windows Me  VB + Access

      定義 Connection  需引用  Microsoft ActiveX Object 2.5 Library

      定義 Database    需引用  Microsoft DAO 3.51 Object Library



 FormD2  Grid1 排序 移動