后台发送邮件错误

想通过Access后台将数据表中的某一条记录比如用户密码发送至相对应的邮箱。

点击下载此附件如下：

表：

窗体：

在论坛上找的高人的文章，学者弄的，在模块中建立函数

Public Function SubMail(strMailAddress As String, _
                        strSubject As String, _
                        strBody As String)
                        
    Dim outlook, mail As Object
      Set outlook = CreateObject("Outlook.Application")
      Set mail = outlook.CreateItem(olMailItem)
  
    With mail
            .To = strMailAddress
            .Subject = strSubject
            .HTMLBody = "" & strBody
            .send
    End With
End Function

在窗体中编写代码：

Private Sub Command1_Click()
Dim a As String
Dim ad As String
Dim b
Dim c
Me.RecordSource = "select * from 用户名 where 用户名 = '" & Me.Text2 & "'"
    If Me.Recordset.EOF Then
    b = MsgBox("没有此用户！", 48, "无效提示")
    Else
    a = "select 密码 from 用户名 where 用户名 = '" & Me.Text2 & "'"
    ad = "select 邮箱 from 用户名 where 用户名 ='" & Me.Text2 & "'"
    End If
SubMail " & ad & ", "登录密码", " & a & "
End Sub

点击按钮运行后提示错误如下：

点击调试后如下：

最后请问各位大佬，想做个数据库放在局域网服务器上，然后通过客户端登陆服务器，使用什么方式？

如果用asp的话，麻烦推荐一本书，access2010，非常感谢！！！