[engabuhema]

بارك الله فيك اخي العزيز وشكرا على الاستجابة السريعة
اسف للاطالة وكثرة الاسئلة دي جملة sub main الخاصة باتصال برنامجي للاتصال بقاعدة البيانات محتاج اظبطها انها تاخد من ملف الاوبشن زي ما انت خليت التيكست ياخد منه
Private Sub Main()

'-----------------------------------------------------------------------
myConection.ConnectionString = "DRIVER=SQL Server;SERVER=SYSTEM;UID=sa;PWD=sa;APP=Microsoft® Windows® Operating System;WSID=CTSP;DATABASE=AlmadinaArcM"
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
myConection.Open
If myConection.State = adStateOpen Then
MDIForm1.Show
Else
MsgBox "Error in Connecting Database please check Connection", vbCritical
End If
End Sub