Llenar DataGridView (Conexion SQL)

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub btnllenarGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnllenarGrid.Click

Try

    Dim cnn As New SqlConnection("Data Source=SERVIDOR;Initial Catalog=BD;User ID=USER; Password=PASS; Integrated Security=SSPI;")
    Dim da As New SqlDataAdapter("SELECT * FROM tabla, cnn)
    da.Fill(ds)
    DataGridView1.DataSource = ds.Tables(0)

Catch ex As Exception

End Try

End Sub
End Class