这里以access数据库为例。第一局部是通过语句，第二局部是通过控件通过语句数据库，然后把相应的数据赋值给某个文本框就行了。1. 首先定义几个全局变量DimAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimconstrAsString2. 给这些变量赋值，方便数据库DataDataconstr=Provider=Microsoft.Jet.OLEDB.4.0;&Source=科学效应数据库.mdb红色局部写你自己的数据库路径。3. 翻开数据库.openconstr翻开表rs.open“select*from效应表whereid=5取字符串并赋值给相应的文本效应和现象）名称文）字讲解Text1.text=rs.fields(Text2.text=rs.fields(关闭表rs.close关闭数据库.close注意，最后两步骤一定要有，不然下次翻开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。但是，在此之前还有一步一定要做，点工程-引用-找到MicrosoftActiveXDataObject2.6，如下图：licrosoftfiuislBasicIttH-JE.Zf(t桔弍昴i.弓尼加R0J寄寿JiJflMLUHi尼kitmiI窗瓦测F1肚世曰污丁庐忖帀0省皋SB月尸玄拦|：忑加rPlAJfltJaMHtjwI乐tonrLTe血加TlltPwir-fflft-f-ptF事AE屈彦汁SR啦勖11伶Ctrim适方皿查询QDSJOJ工貝CD昶一L巻口即5*1.H，OesM*JjCUKI3ID0(1J工经力瘙式ILI调注uu尉山*cm瞬山工貝id外雯5孚0SfMHJ耕蜀U1Jil；avu（VisualSiwiv讼ilDi工册斥堆甲”DinconstrAsStringcoDsty*Proviii?nml亦ctHiera.这样就成功了。