这里以链接access数据库为例。第一部分是通过语句链接,第二部分是通过控件链接一、 通过语句链接数据库,然后把相应的数据赋值给某个文本框就行了。1.一方面定义几种全局变量Dim cn s N DODB.onncion Dimrs s New DBRcordt D ns A Stri2.给这些变量赋值，以便链接数据库conr= Prvder=Micrsotet.OLEDB4.0；& DataSouce=D:Soltio科学效应数据库.mdb红色部分写你自己的数据库途径。3.打开数据库.opn cosr打开表rs.opn “sele * fom效应表 wher id=5“,cn取字符串并赋值给相应的文本Text1.te=s.feds(“效应和现象名称”）Text2.te=r.fields(“文字解说”)关闭表rs.cos关闭数据库cn.clos注意,最后两环节一定要有,否则下次打开数据库的时候会提示出错的,这样的话，在窗口上建立两个文本框就够了。但是,在此之前尚有一步一定要做,点工程-引用-找到Mcroft AciveX Data Oject 2.6 ,如图所示:显示的成果如下图所示：通过与效应表对比发现显示对的。总体代码如下:Priate Sub ForLoad()Dm c As AD.ConectioDm r As Ne DOB.RecordsetDimconstr A Srgconstr rvider=MicrosoftJet.ODB.; & _taSore=:ffectlutn科学效应数据库.mdb空格加短下划线表达续行c.openonsrrs.open slect * from 效应表 wher =5, cTe1Tet =.ields(效应和现象名称）Te2.Tex = s.field(文字解说)rs.losen.losenSub二、通过ad控件链接数据库,然后通过atgrid控件显示数据库中的有关表。过程示例:1.添加部件ad控件和dtagrid控件,如图所示:这样工具栏里面会浮现这样两个图标(最下面):2.把这两个控件添加到你的orm1里面，这个不用演示吧3.右击你添加的od1控件,选最后一种然后点Geera里面的Use ConectnSting里面的那个uld,选择microsoft JET4.0 L B Providr,选中之后点下一步；4然后，点击第一种项目右边那个诸多点的按钮,找到自己的数据库,选好之后点“打开“ 旁边的文本框里面就有了数据途径，像这样:5.测试连接,成功了就行了.点拟定,显示这样一种界面:7.点右边第三个RoSoue 按钮，设立成如下状况mdtext选择1,然后输入SL语句，Selec * ro 效应表（表名,必填)8.设立好之后点拟定就行了,这样就通过adodc控件连接到了数据库中的这张表接下来是对atri控件的设立:把daagid1控件的datasorce设立成adc，就行了。0.按F5启动，就会显示这样一种成果：这样就成功了。