[princelovelorn]

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

تفضل الكود

كود :

Imports System.Data.SqlClient

Module Module1
   public sub connsql()
       Dim connectionString As String = "Server=sever123;Database=mohamed;Integrated Security=True;"
       Using conn As New SqlConnection(connectionString)
           Try
               conn.Open()
               msgbox("تم الاتصال بقاعدة البيانات بنجاح")
           Catch ex As Exception
               msgbox("خطأ في الاتصال: " & ex.Message)
           End Try
       End Using
   End Sub
End Module