Code source Vb.net

[...]

Const PageURL As String = "https://codes-sources.commentcamarche.net/"
Dim WebClient As New System.Net.WebClient()
Dim Sr As New System.IO.StreamReader(WebClient.OpenRead(PageURL), System.Text.Encoding.Default)
Dim Page As String = Sr.ReadToEnd() 'Récupére le code
Sr.Dispose()
Sr = Nothing
WebClient.Dispose()
WebClient = Nothing

'Imports System
'Imports System.Net
Public Function DownloadSource(ByVal address As String, ByVal UserAgent As String) As String
  Dim Result As String
  Using NetC As New WebClient()
    NetC.Headers(HttpRequestHeader.UserAgent) = UserAgent
    Result = NetC.DownloadString(address)
  End Using
  Return Result
End Function
Public Function DownloadSource(ByVal address As Uri, ByVal UserAgent As String) As String
  Return DownloadSource(address.ToString(), UserAgent)
End Function 

'   Variables

Public strSql As String                 '   Requête SQL

Public strConn As String                '   Paramètres de la connexion à SQL

Public conn As SqlConnection

Public CmdS As SqlCommand

Public da As SqlDataAdapter

Public dsBL As New DataSet()            

'   String de connexion à SQL

strConn = "Initial Catalog=Nom_de_la_base;Data Source=Nom_du_serveur;User ID=SQLuser;Password=;"

'   Requête SQL

strSql = "SELECT ... FROM ... WHERE ..."

'   Connexion à la base, sélection des données

conn = New SqlConnection(strConn)

conn.Open()

CmdS = New SqlCommand(strSql)

da = New SqlDataAdapter(CmdS)

CmdS.Connection() = conn

'   Vidage du DataSet (si besoin)

dsBL.Clear()

'   Remplissage du DataSet

da.Fill(dsBL, "Nom_de_la_table_de_la_clause_FROM")


'ton dataset est rempli, tu peut l'affecter a un datagrid pour
afficher ce qu'il contient
'   Fermeture de la connexion (si besoin)

conn.Close()