在ADO控件属性页的“记录源”选项卡中，设置命令类型为2（表类型），设置控件的RecordSource属性。
在ADO控件的属性设置完毕之后，设置文本框的DataSource属性和DataField属性。
编写程序代码
Private Sub Text1_Change()
a=Adodc1.Recordset.AbsolutePosition b= Adodc1.Recordset.RecordCount
Adodc1.Caption=”当前记录号：”& a &”/”& b
6
End Sub
可有如下运行结果：
3）创建窗体
4）使用数据视图工具创建数据连接。
点击
，打开数据视图窗口：
点击数据视图窗口中工具栏第三个图标“添加新的数据连接”，打开对话框
7
图 “数据链接属性”列话框
在“提供者”选项卡中选择“Microsoft OLE DB Provider for ODBC Drivers”选项后，单击“下一步”按钮,进入链接选项卡，在其中选择“使用链接字符串”后，单击“编译“按钮。
8
图 使用字符串创建链接
图 新建机器数据源
在上图所示的对话框中，选择“机器数据源”选项卡，单击其中“新建”按钮。在图14-24所示的对话框中选择数据源的类型，本例选择了“系统数据源”。
9
选择数据源类型
单击下一步
图 选择数据源的驱动程序
对话框中选择数据源的驱动程序，本例选择了SQL Server，单击“下一步”按钮。
10