急啊 帮我分析下这几句话
'启动函数Private Sub Main()On Error GoTo ErrDim strTitle() As Stringmstrallpara = Trim(Command$)If Trim(mstrallpara) <> "" Then strTitle = Split(mstrallpara, "|") mstrright = Trim(strTitle(0)) mstrUserID = Trim(strTitle(1)) mstru8conn = Trim(strTitle(2)) mstrServer = Trim(strTitle(3)) mintlang = Trim(strTitle(4)) mstrrunpara = Trim(strTitle(5)) mstraccname = Trim(strTitle(6)) ElseDim mstracc As Stringmstracc 'mstru8conn = "PROVIDER=SQLOLEDB;data source=NT08;user id=sa;password=databasesqlserver;initial catalog=UFDATA_001_2010;Connect Timeout=30;Persist Security Info=True ;Current Language=Simplified Chinese;"End Iffrmomhistory.Show Exit SubErr: Err.Raise Err.DescriptionEnd Sub