怎么数据写不进文件里

        Dim zhsj As New zhsj
        Dim zt As New ZhuangTai
        Dim e As Integer
        e = FreeFile()  

        FileOpen(e, "SHUJU\ZT.dat", OpenMode.Random)
        zt.ZhangHu_jiluhao = 1
        FilePut(1, zt, 1)
        FileClose(e)

        e = FreeFile()
        FileOpen(e, "SHUJU\SHUJU1.dat", OpenMode.Random)
        zhsj.mingcheng = "test"
        zhsj.mima = "test"
        zhsj.quanxian = "会员"
        zhsj.lianxidianhua = "546464654"
        zhsj.dengruriqi = "dfsdsf"
        zhsj.dengchuuriqi = "asdff"
        zhsj.zhuceriqi = "sadds"
        FilePut(e, zhsj, 1)
        FileClose(e)

代码如上，其中第一个ZT文件能顺利写入~
但下边的SHUJU1.dat文件怎么写不进去数据，求达人解惑啊啊~ --------------------编程问答-------------------- 提示什么错误？

补充：.NET技术 ,  VB.NET