办公系统编译错误

㈠ VB问题，错误的显示是：编译错误 块if 没有end if.

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "办公" Then
MsgBox "成为办公专家"
ElseIf a = "网站" Then
MsgBox "成为网站设计师"
ElseIf a = "网络" Then
MsgBox "成为网络工程师"
Else
MsgBox "没有你要的专业"
end if '---->这里要添加
End Sub

㈡ 用友致远OA（协同办公系统） A6，错误信息总提示“服务器连接不上”，怎么办

肿么办？打电话给用友致远客服啊。。。软件不是我们开发的，我们也没办法啊。。。先要确定OA系统所在的服务器是否正常工作，网络是否通畅。如果都正常，就只能是软件问题了。。找客服吧