阿波罗的战车
Private Sub CommandButton1_Click()Dim DBConnDim connStr'建立数据库连接对象Set DBConn = CreateObject("ADODB.Connection")'设定连接用信息(driver dsn uid pwd dbalias都要替换成正确的)connStr = "DRIVER ={XXXX};DSN = XXXX;UID=XXXX;PWD=XXXX;DBALIAS=XXXXX;"'使用客户端游标DBConn.cursorlocation = 3'连接DBDBConn.Open connStr '建立结果集对象Dim rslt'建立SQL语句Dim strSql As StringconnStr = "Select count(*) from TestTable;" '这个是演示用的 具体使用要替换成具体语句'通过数据库连接对象执行sql并返回结果集Set rslt = DBConn.Execute(sql) End Sub以上就是一个最基础的且不带封装和报错的DB连接+执行sql的应用