نحوه بازكردن سرور در يك ما‍‍ژول

[RamezanBeik]

سلام وقت خوش.
دوستن چگونه مي شه كد زير را در يك ماژول به صورت سراسري تعريف كرد كه به جاي اينكه در هر فرم آن را بنويسيم فقط با صدا زدنش ازش استفاده كرد.



ConnStr = "Provider=SQLOLEDB.1;Data Source=123-603100767;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Ikoco_Bank"
CN.Open ConnStr

[M.T.P]

Sub ConnectDB(Cn As ADODB.Connection)
Dim CS As String
CS = "Provider=SQLOLEDB.1;Data Source=123-603100767;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Ikoco_Bank"
Cn.Open CS
End Sub

[RamezanBeik]

تشكر از راهنمايي شما من دستور فوق را در يك ما‍ژول قرار دادم .براي اينكه بتونم در جايي به اون نياز دارم ازش استفاده كنم از دستور زير استفاده مي كنم



call ConnectDb


اما با خطاي زير مواجه مي شم:



Argument not Optional

[M.T.P]

خب شما آرگومان خواسته شده رو وارد نکردید!
بعنوان مثال اگه متغیر Connection شما اسمش Conn هست:


call ConnectDb(Conn)