'SQL Server 数据库
Public Function ConnectString() As String
         ConnectString = "driver={SQL Server};SERVER=" & HostName & _
        ";DATABASE=教学成绩管理数据库;UID=" & ConnectUserName & ";PWD=" & ConnectPassWord
End Function
