帮帮我!

各位老大 帮帮我这初学者吧
  在VB中 我在模块中定义了一个结构体 当我用RANDOM语句想吧 数据输入文件中 可怎么也输不进去
我的代码如下
Type gongyingshang2
mingcheng1 As String * 40
bianma1 As String * 8
dizhi1 As String * 40
dianhua1 As String * 15
zuohuoqi1 As Integer
yewuyuan1 As String * 12
fukuanfangshi1 As String * 20
youxiang1 As String * 40
chuanzhen1 As String * 20
yewuyuandianhua1 As String * 15
End Typedim acust as gongyingshang2
Private Sub Form_Load()
mingcheng1 = ""
bianma1 = ""
dizhi1 = ""
dianhua1 = ""
zuohuoqi1 = ""
yewuyuan1 = ""
fukuanfangshi1 = ""
youxiang1 = ""
chuanzhen1 = ""
yewuyuandianhua1 = ""
End Sub
Private Sub zengjia_Click()
Open "d:/click.dat" For random As #1 len=len(acust)
I=1
get #1, I, acust
Close #1
mingcheng1.SetFocus
mingcheng1 = ""
bianma1 = ""
dizhi1 = ""
dianhua1 = ""
zuohuoqi1 = ""
yewuyuan1 = ""
fukuanfangshi1 = ""
youxiang1 = ""
chuanzhen1 = ""
yewuyuandianhua1 = ""
End Sub
Private Sub likai_Click()
xuanze.Show
gongyingshang1.Hide
End Sub
 请各位大哥帮我看看