[ahmedabdelaliem]

السلام عليكم اخي 

عدل الكود هكذا ولو حصل اي مشكلة اثناء تشغيل البرنامج لاجعل الكود في Form_Activate
ولعملية التحديث اذا تغير البورت يمكن بعد تعديل رقم البورت ان تضع الكود في زر امر وتضغط عليه للتحديث وسف يعمل البرنامج باذن الله
هذا هو الكود 

PHP كود :

Private Sub Form_Load()
'هكذا تربط بيانات البورت وغيرها من نافذة البرنامج ويمكنك حفظ البيانات في الرجيستري ايضا
'ضع عدد 2 تكست بكس واجعل اسمهما كما هو موضح
MSComm1.CommPort = txtPort.Text
MSComm1.Settings = txtSettings.Text
MSComm1.PortOpen = True


Set db = OpenDatabase("compny.mdb")
Set Rs = db.OpenRecordset("tbl1")
Call ConncData
FillCombo Combo2, "select S_Name from TbTest"
End Sub 


بالتوفيق