ConnectString = "Provider=SQLOLEDB;Data Source=10.43.10.231\SQLEXPRESS;Initial Catalog=WHD;User ID=sa;Password=123456";

   СonnectADO = New COMObject("ADODB.Connection");
   СonnectADO.ConnectionString = ConnectString;
   СonnectADO.Open();

   RS = New COMObject("ADODB.Recordset");
   Try
       RS.Open("SELECT * FR OM dbo.FLIGHT WH ERE EXPIMP = 'IMP' AND FLIDATE>'01/01/2013'", СonnectADO );
      Except
        Message ("Không thể kết nối tới CSDL");
        Return;
   EndTry;