老师,如下代码执行的时候报错,至少有个参数没有指定值,请帮忙看看,谢谢!
未指定值的参数address
Dim Ac As String
Dim cmd2 As New SQL-Command
cmd2.Con-nection-Name = "User"
cmd2.CommandText = "S-ELECT EAccount F-rom {Users} where UserName = '" & _UserName & "'"
Ac = cmd2.ExecuteScalar()
Dim fr As String
Dim cmd3 As New SQL-Command
cmd3.Con-nection-Name = "User"
cmd3.CommandText = "S-ELECT Email F-rom {Users} where UserName = '" & _UserName & "'"
fr = cmd3.ExecuteScalar()
Dim rc As String = Forms("邮件").Controls("Receiver").Value
Dim m As New MailSender
m.Host = "192.168.1.103"
m.Account = Ac
m.Password = "123456"
m.From = fr
m.To = rc
m.Title = Forms("邮件").Controls("subject").Value
m.Content = Forms("邮件").Controls("body").Value
m.SendAsync()