[m___6999]

كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

   If My.Settings.server = "" Then

       MsgBox("الرجاء ادخال البيانات التالية")

       My.Settings.server = InputBox("اسم السيرفر").Trim()
       My.Settings.database = InputBox("اسم قاعدة البيانات").Trim()
       My.Settings.user = InputBox("اسم المستخدم").Trim()
       My.Settings.pass = InputBox("كلمة المرور")

       Sqlconn = New SqlConnection("Data Source=" & My.Settings.server & ";Initial Catalog=" & My.Settings.database & ";User ID=" & My.Settings.user & ";Password=" & My.Settings.pass)

   End If

End Sub