前两天我不是接个小活儿嘛要用VB6.0给客户做一个小工具，其中需要连一下数据库。这可把我给难住，VB6.0老古董，现在的数据库哪还用它呀！没办法，客户就是上帝，硬着头皮上呗！
刚开始我是一头雾水，这玩意儿咋连数据库？我先去网上搜搜，发现好多人都说用ADO，还有什么DAO的，看得我眼花缭乱。我还是决定用ADO，听起来比较主流。
折腾的第一步：找“零件”
我打开VB6.0，就像打开一个老旧的工具箱。得先找到连接数据库的“零件”才行。我记得网上说要引入什么库，我就在菜单栏里一阵乱点。“工程”->“引用”，还真让我找到！里面一堆的选项，我也不认识，就找名字里带“ActiveX Data Objects”的，管它版本多少，统统勾上！
这一步就像是给我的工具箱里加几个新工具，虽然我还不知道具体怎么用，但起码有家伙事儿。
折腾的第二步：写“暗号”
接下来就是写代码，这玩意儿叫“连接字符串”，就像是数据库的“暗号”。我照着网上的例子，写一段：
Dim conn As New *
* = "Provider=SQLOLEDB.1;Data Source=服务器地址;Initial Catalog=数据库名;User Id=用户名;Password=密码;"
这里面的“服务器地址”、“数据库名”、“用户名”、“密码”都得换成客户给我的信息。这一步就像是在设置“暗号”的具体内容，让我的程序知道该去哪里、找谁、用什么口令。
折腾的第三步： “开门”
有“暗号”，接下来就得“开门”。我继续写代码：
这一步很简单，就是告诉程序，用刚才设置好的“暗号”去打开数据库的大门。
折腾的第四步： “干活”
数据库的门打开，接下来就可以“干活”。我写一段SQL语句，让程序去数据库里查点东西：
Dim rs As New *
* "SELECT FROM 表名", conn, adOpenStatic, adLockOptimistic
这段代码的意思就是，从“表名”这张表里把所有数据都给我拿出来。注意！ 这里的“表名”也要换成客户给我的实际表名。
折腾的第五步： “收工”
数据拿到，活儿干完，别忘“关门”：
这一步很重要，就像用完工具要把工具箱关好一样。不然数据库一直开着，可能会出问题。
我把从数据库里拿到的数据，显示在一个表格控件里。客户看看，挺满意，我也松一口气。虽然过程有点曲折，但总算是搞定！
这回的经历让我体会到，老技术也有老技术的用处，虽然麻烦点，但只要肯钻研，还是能解决问题的。以后再遇到这种老古董，我也不会那么害怕！