这里有蜜！！！

然后拉个ADODC控件上去
再用
    connstr = "Provider=MSDASQL.1;Persist Security Info=False;User ID=用户;Data Source=数据源"
    Adodc1.ConnectionString = connstr
     Adodc1.RecordSource = "account"
      Adodc1.Refresh
      Adodc1.Enabled = True
  类似的语句。