using System;
using System.Collections.Generic;
using System.Linq;
using System.Data.Linq;
using System.Data.Linq.Mapping;
using System.Text;
namespace ConsoleApplication1
{
    [Table(Name = "Person.Contact")]
    public class m_Contact
    {
        private Int32 _ContactID;
        [Column(IsPrimaryKey = true, Storage = "_ContactID")]
        public Int32 ContactID
        {
            get { return this._ContactID; }
            set { this._ContactID = value; }
        }
        private string _LastName;
        [Column(Storage = "_LastName")]
        public string LastName
        {
            get { return this._LastName; }
            set { this._LastName = value; }
        }
    }
    internal class Program
    {
        private static void Main(string[] args)
        {
            DataContext db =
                new DataContext(
                    @"Server=xxx.xxx.xxx.xxx;Initial Catalog=AdventureWorks;User ID=xxxxxx;Password=xxxxxx;Trusted_Connection=False;");
            Table<m_Contact> test = db.GetTable<m_Contact>();
            db.Log = Console.Out;
            IQueryable<m_Contact> query = from cont in test
                        where cont.LastName == "Adams"
                        select cont;

            foreach (m_Contact item in query)
            {
                Console.WriteLine("ID={0}", item.LastName);
            }
            Console.ReadLine();
        }
    }
}

    Dim cnCrm As ADODB.SqlConnection = Nothing
        cnCrm = New ADODB.SqlConnection
        cnCrm.ConnectionString = "Server=C-10-0858;Initial Catalog=Imported;User ID=sa;Password=ed351_4p;Trusted_Connection=False;"
        cnCrm.Open()
        '//Создаем команду к серверу
        adoCmd = New ADODB.SqlCommand
        adoCmd.CommandType = CommandType.Text
        ''//Какая то произвольная команда возвращающая произвольный набор данных
        adoCmd.CommandText = "Select * from A"
        adoCmd.Connection = cnCrm
        adoCmd.CommandTimeout = 3600
        daSql = New ADODB.SqlDataAdapter
        daSql.SelectCommand = adoCmd
        Dim dt As System.Data.DataTable = New System.Data.DataTable

        daSql.Fill(dt)

        For Each dtItem As DataRow In dt.Rows
            Console.WriteLine("value={0}", dtItem(0).ToString)
        Next
        Console.ReadLine()