在项目中选择左边“工具盒”中的数据库适配器，本例子用的是odbc数据源，所以选择odbcdataadapter. 选中odbcdataadapter，在属性窗口中选择selectcommand,展开，选择connection,在下拉框中选择“新建”，在弹出的窗口中选择computer database页，选中想要得odbcdatasource.选择command text,点击旁边的“省略号按钮”，在弹出的窗口中输入sql语句。如果sql语句中有条件参数，要用“问号？”代替。如：select user,name from table where user = ? .并且需要选择parameters，点击旁边的“省略号按钮”，在弹出的窗口中选择“增加”，就增加了一个参数。在旁边的属性框中修改参数的属性。odbctype 为参数对应字段的类型，sourcecolumn为参数对应字段名。parametername为参数名，这里为param1。
数据查询出来，可以放到一个相当于记录集的地方，这里用语句 dim odr1 as system.data.odbc.odbcdatareader 定义变量odr1来存放。
刚才说了，查询有参数的话，现在要把从界面上获取的实际的值传给参数，用语句 me.odbcselectcommand2.parameters("param1").value = me.textbox1.text 注意，这里是odbcselectcommand，而不是odbcdataadapter2.selectcommand。 然后执行下面的语句得到记录集 odr1 = me.odbcdataadapter2.selectcommand.executereader() 判断记录集是不是为空，不为空就通过odr1("字段名")读取记录集中的数据 if odr1.hasrows then while odr1.read() name = odr1("name") user = odr1("user") end while odr1.close() end if
