请问一个关于连接数据库的问题

Question

我在程序中做了一个测试连接服务器的功能，但是又不想把现有的连接控件拿来测试，所以只想又手工代码，建立一个连接控件，可又不知道怎么写，请哪位有识之士帮忙解决一下？
我想用TADOConnection控件，还有建立了这么一个控件，哪些值还需要手动赋值啊？

Answer 1

如果连接Access:
Adoconnection1.connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+数据库名+'; Persist Security  Info=False;Jet OLEDB:Database Password=1234';
如果连接SqlServer:
Adoconnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog= '+ 数据库名+ ';
Data Source='+ 计算机名;