[VB.NET] الاتصال بقاعدة البيانات على الشبكة مشكل أتعبني حقا

PHP كود :

Module ConnactionStingXT
    Public Function Cnn() As SqlClient.SqlConnection
        If My.Settings.UserNameXT.Length > 0 Then
            Dim cn As New SqlConnection("Data Source=" & My.Settings.ServerName & ";Initial Catalog=TestUpdate;Persist Security Info=True;User ID=" & 

My.Settings.UserNameXT & ";Password=" & My.Settings.PasswordXT & "")
            Return cn
        Else
            Dim cn As New SqlConnection("Data Source=" & My.Settings.ServerName & ";Initial Catalog=TestUpdate;integrated security=true")
            Return cn
        End If
    End Function
End Module

Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
    For i = dt.Rows.Count To dt.Rows.Count + 10000
        Dim StrSQL As String = "INSERT INTO TestUpdateTB (Full_Name,NoteX ) VALUES ('Test Name " & i & "','Test Note " & i & "')"
        Dim da As New SqlDataAdapter(StrSQL, Cnn)
        Dim dt1 As New DataTable
        da.Fill(dt1)
        Label1.Text = i
        Me.Refresh()
    Next
    MsgBox("Wen...")
End Sub

    Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        'عندي 40000 سجل في قاعدة البيانات للتجربة'
        For i = 1 To dt.Rows.Count - 30000
            Dim StrSQL As String = "UPDATE [dbo].[TestUpdateTB] SET [Full_Name] = 'Test Name " & i & "',[NoteX] = 'Test Note " & i & "' WHERE Id=" & i
            Dim da As New SqlDataAdapter(StrSQL, Cnn)
            Dim dt1 As New DataTable
            da.Fill(dt1)
            Label1.Text = i
            Me.Refresh()
        Next
        MsgBox("Wen...")
    End Sub

/****** Object:  Table [dbo].[TestUpdateTB]    Script Date: 10/8/2019 7:09:41 AM ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[TestUpdateTB](
    [ID] [int] IDENTITY(1,1) NOT NULL,
    [Full_Name] [nvarchar](255) NOT NULL,
    [NoteX] [nvarchar](255) NOT NULL,
 CONSTRAINT [IDTestUpdateTB] PRIMARY KEY CLUSTERED 
(
    [ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

PHP كود :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i = 1 To dt.Rows.Count - 30000
            Dim StrSQL As String = "UPDATE [dbo].[TestUpdateTB] SET [Full_Name] = 'Test Name 1',[NoteX] = 'Test Note 1' WHERE Id=" & 1
            Dim da As New SqlDataAdapter(StrSQL, Cnn)
            Dim dt1 As New DataTable
            da.Fill(dt1)
            Label1.Text = i
            Me.Refresh()
        Next
        MsgBox("Wen...")
    End Sub