[Rami_Mezo]

شكرا جزيلا [b]Amir_alzubidy[/b] 

و إن شاء الله بميزان حسانتك ,بعد دمج فكرتك في برنامج وتشغيله أعطاني OK بأن الإتصال يعمل بحمد الله لكن الخطأ عند ما زال وهو الخطأ السابق

أعتقد أنه لا يستطيع فتح قناة مع الجدول المطلوب يعني :



 Dim str_sql As String

   Dim st_recset As Recordset


    Set st_recset = New Recordset

    str_sql = "SELECT * From skin where check_skin= True"

    ExecuteRecordSetDB str_sql, st_recset



 If st_recset.RecordCount <> 0 Then

end if

=====================================================================================================
وهذاهنا يعطيني خطأ

Public Function ExecuteRecordSetDB(ByVal str_sqlStatement As String, ByRef st_recordSet As Recordset)
   Set st_recordSet = New Recordset
   st_recordSet.Open str_sqlStatement, dbaseConn, adOpenStatic, adLockOptimistic  (على هذا الجملة يعطيني خطأ)
   ExecuteRecordSetDB = st_recordSet
End Function

  سؤال هل هناك Reference أنا لم أحددها للبرنامج مثلا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟  لماذا لا يستطيع فتح قناة مع الجدول skin ?
  البرنامج عندي كانت قاعدة بياناته أكسس و الهدف جعله يعمل على SQL SERVER 2005   على السيرفر بطريق أسرع وأأمن .......أرجو المساعد إذا أمكن