cargar datos datagridview desde sql

 Public Sub get_datos_empresas()
        dgv1.Columns.Clear()
        Dim con As New SqlConnection(Form1.conex)
        Dim da As New SqlDataAdapter("select * from empresas", con)
        Dim ds As New DataSet
        da.Fill(ds)
        Me.dgv1.DataSource = ds.Tables(0)
    End Sub


fuente