كود لاخال اليوزر نيم والباسورد للبرنامج متصل بقاعدة

السلام عليكم ورحمة الله

انا اول مرة اشترك في الموقع بس انا متابع الموقع من زمان واشكر كل المبرمجين علي المساعدة لنا

وارجو ان تعزوروني لاني لست مبرمج ولكني بحاجة الي هذا الفورم في بداية برنامجي

لو سمحتم انا عاوز فورم لادخال اليوزر نيم والباسورد للدخول الي القاعدة (كود الاتصال )

يعني

Private Sub Form_Load()

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Set mystream = New ADODB.Stream

'CREATE CONNECTION

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _

& "SERVER=??;" _

& "DATABASE=00000000;" _

& "UID=0000000;" _

& "PWD=0000000;" _

& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

conn.CursorLocation = adUseClient

conn.Open

'OPEN RECORDSET TO READ

refreshme

End Sub

بدلا من كتابة اليوزر نيم والباسور واسم قاعدة البيانات والسيرفر بهذا الشكل في الفورم الاساسي للبرنامج

اريد ان يظهر للمستخدم نموذج في بداية البرنامج يطلب كتابة هذة البيانات في فورم

حتي لو تم تغير هذة المعلومات يستطيع الدخول مرة اخري

وشكرا مرة اخري علي المساعدة