通过socket连接，怎么在客户端连接到不同的数据库？？？ ( 积分: 50 )

通过socket连接，怎么在客户端根据需要连接到不同的数据库？如客户选不同的帐套.....就要连接到不同的数据库了。
客户端用ClientDataSet1、 SocketConnection1连接服务器，服务器用DataSetProvider1、ADOConnection1，能给出源代码者马上给分。

var
DBPath: string;
begin
DBPath := 'C:/Documents and Settings/Administrator/桌面/record.mdb';
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select Top 10 * From files in '
+ QuotedStr(DBPath)
+ ' where chunnel=11';
ADOQuery1.Open;

接受答案了.