Imports System.Data.SqlClient
1. Realizando la Conexion
Dim Consql As New SqlConnection("data source= Server ;pwd=sa ;initial catalog= BaseDatos ;integrated security=true")
Dim ComSql As New SqlCommand()
Dim DstSql As New DataSet()
Dim DapSql As New SqlDataAdapter("select campo1 , campo2 from sod_tienda order by ccosto", Consql)
Ejecutando query y llenandolo en el DataGrid.
DapSql.SelectCommand.CommandText = "select nomtienda, ccosto from sod_tienda order by ccosto "
If DstSql.Tables.Contains("Tienda") Then DstSql.Tables("Tienda").Clear()
DapSql.Fill(DstSql, "Tienda")
dagatrid1.datasource=dstsql.tables("Tienda")
Si esa conexion no se adapta a la version de sql que tienes, puedes buscar en esta pagina:
www.connectionstrings.com/