تشخیص پر شدن گزینه های Optional در Function

[kitcat_m18]

با سلام،

من یه فانکشن به صورت زیر دارم:

Public Function Connect_Database(ByVal MyRecordset As Recordset, Optional Grid As Object) As Boolean
On Error GoTo Khata:

With MyRecordset
If .State = 1 Then .Close
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Select * From Table", Cn
If Grid <> Nothing Then Set Grid.DataSource = MyRecordset
End With

Connect_Database = True
Exit Function

Khata:
Call MsgBox("ÎØÇ ÏÑ ÇäÌÇã ÚãáíÇÊ" & vbCrLf & Err.Number & vbCrLf & Err.Description)
Connect_Database = False
End Function


مشکل با این یه خط کده:

If Grid <> Nothing Then Set Grid.DataSource = rs

چطوری می تونم تشخیص بدم که یک گزینه Optional توسط کاربر انتخاب شده یا نه ؟؟؟
مشکل من فعلا در حالتیه که گزینه Optional یه Object هست. چون نمی تونم در فانکشن بالا تشخیص بدم که آیا Grid به وسیله کاربر انتخاب شده یا نه به خطا می خورم.

موفق باشید :لبخندساده:

[kitcat_m18]

فکر می کنم جواب رو پیدا کردم

If Not Grid Is Nothing then Set Grid.DataSource=MyRecordset

موفق باشید.