Application vb.net

Bonjour,

je cherche comment se connecter sur ma base sql a partir de mon application vb 2008
mon objectif est d'afficher les donner dans la table Fournisseur dans une datagridView mais toujours j'ai le même problème qui été la connexion sur la base voila le code que je
l'utilise malgré qu'il y a aucune erreur détecté il ne fonctionne pas et SVP qui peut m'aider
////////////////////////////////

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class admin

Dim sql As String
Public bd As OleDb.OleDbCommand
Private table As DataTable
Private adap As OleDb.OleDbDataAdapter
Dim sele As String
Private Sub consultat()

Dim cmd As SqlCommand
Dim ds As DataSet
Dim da As SqlDataAdapter
Dim tab As DataTable

Dim connect As New SqlConnection("data source=localhost;initial catalog=someca;integrated security=true")

sql = "SELECT * FROM fournisseur"

cmd = New SqlCommand(sql, connect)
da = New SqlDataAdapter(cmd)
ds = New DataSet
tab = New DataTable
da.Fill(ds, "tab")
tab = ds.Tables("tab")
DataGridView1.DataSource = tab



End Sub


Private Sub admin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

consultat()

End Sub

End Class