//这个是初始化ADOConnection的连接字符串的procedure TForm1.btn2Click(Sender: TObject);
begin
  with  dmMain.conMain do
  begin
    Connected := False;
    ConnectionString := 'Provider=SQLOLEDB.1;Password=';
    ConnectionString := ConnectionString + edt_loginpsw.Text; //数据库密码
    ConnectionString := ConnectionString + ';Persist Security Info=True;User ID=';
    ConnectionString := ConnectionString + edt_username.Text;     //数据库用户名
    ConnectionString := ConnectionString + ';Initial Catalog=';
    ConnectionString := ConnectionString + 'iceway';   //数据库名
    ConnectionString := ConnectionString + ';Data Source=';
    ConnectionString := ConnectionString + edt_IP.Text + '\' + 'SQL2005' + ',' +
      edt_port.Text;
      ShowMessage(ConnectionString);
      btn1.Enabled := True;
  end;
end;
//接着就是登录数据库了 点了这个按钮后 TDBGridEh控件已经显示内容了
但是不是我想要的内容
他显示的是 数据库里面表名为 iceway的数据但是我想让他显示 为 xiaowu 表的数据
该怎么做呢  
procedure TForm1.btn1Click(Sender: TObject);
    var
  NowBookMark:TBook;
   I:Integer;
begin
  dmMain.conMain.Connected := False;
  dmMain.conMain.Connected := True;
  if dmMain.conMain.Connected then
  begin
    ShowMessage('登录成功');
    Screen.Cursor :=crHourGlass;
    if not dbgrdh1.DataSource.DataSet.Active then
       dbgrdh1.DataSource.DataSet.Active:=True;
    TClientDataSet(dbgrdh1.DataSource.DataSet).CancelUpdates;
    //重新定位
    NowBookMark:=dbgrdh1.DataSource.DataSet.Book;
    dbgrdh1.DataSource.DataSet.Refresh;
    dbgrdh1.DataSource.DataSet.GotoBook(NowBookMark);
    Screen.Cursor :=crDefault;
    pm1.AutoPopup := True;
    pm2.AutoPopup := True;
  end
  else
  begin
    ShowMessage('登录失败');
  end;end;