عیب یابی اسکریپت اتصال به access و ذخیره در فایل

[rezarss]

سلام دوستان
پس از کلی گشتن و خوندن و نگاه کردن آخرش یه چیزی نوشتم و می خوام اساتید محترم عیب های این اسکریپت رو پیدا کنند که ببینم کجاشو اشتباه نوشتم. (اگه زیاد مشکل داشت نخندین آخه من تو vb مبتدی هستم)

این اسکریپت به بانک access که دو فیلد نام و شماره داره متصل می شه و بعدش نام و شماره رو (تمام نام ها و شماره های موجود در بانک) در کنار هم در یک فایل ذخیره می کنه.



Public connect()
Dim cn As ADODB.connection
Set cn = New ADODB.connection
Dim rs As ADODB.Recordset
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data"
Source = "c:\db1.mdb"
Info = False
cn.Open (connstring)x
Set rs = New ADODB.Recordset
adLockOptimistie , rs.Open, Source, Name, en, OpenKeyset
Distinct "select * from table1"
rs.MoveFirst
Open "c:\db1.mdb" For Output As #1
Do
rs.fields(0) = tmp
Print #1, tmp

rs.MoveNext
Loop Until (rs.EOF)x
Close #1
rs.Close
cn.Close


End Sub