تعديل في الكود مع ربط لقاعدة البيانات

لسلام عليكم

أرجو مساعدتي في تعديل هذا الكود لأنني أريد أن أربطه مع قاعدة بيانات حيث يقوم بإدراج الينك في قاعدة البيانات:

الأدوات المستخدمة في الصفحة هي

textbox في ادخال الينك

bottom في الضغط عليه وهو سيتم كتابة فيه الكود وكود ربط قاعدة البيانات

label لإظهار الرسالة فيه

الكود هو :

رمز برمجي:

    
Dim URL As String = "http://www.web.org/"
Dim request As WebRequest = WebRequest.Create(URL)
Dim response As WebResponse = request.GetResponse()
Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
Dim str AsString = reader.ReadToEnd()
If (InStr(str, "ألعاب")) Then
MsgBox ("تمت الإستضافة")
Else
MsgBox ("لم تتم الإستضافة")
End If