[نيمو]

في Form1_Load
تكون

كود :

server("SQL_2019_R2")

في سوب FILL_COMBO
تكون

كود :

       Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=SQL_2019_R2" + ";Initial Catalog=tempdb;Integrated Security=SSPI;")

الملف في المرفقات