在工程里找到部件 在部件里找到Microsoft ADO Control 6.0,勾上,点应用,工具拦上出现一个拉练样的控件为止。把ADO拖放到窗体上,VISIBLE属性设置成不可见。再拖放一个按钮,一个文本框,连接语句这么写: Private Sub Command1_Click() Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS完整路径/ACCESS名;UID=...;PWD=...." Adodc1.RecordSource="Select * From ACCESS 表" Adodc1.Refresh '----------//这就是连接数据库字符串,要引用数据就该这么写 If Not Adodc1.RecordSET.EOF Then '---------//必须排除数据连接异常,不然查询数据时每次提示响应连接 Text1=Adodc1.RecordSet.Fields("字段名") '--------让文本框显示查询列第一个记录 End If End Sub