我已经创建了ODBC DSN数据源!然后有如下代码：
Global cnInfo As New ADODB.ConnectioncnInfo.Open "DSN = Info","",""但程序执行到上句是提示如下：
实时错误'-2147467259 (80004005)':
[Microsoft][ODBC Manager] Data source name not
found and no default driver specified请问是这一问题怎么解决，有代码 最好！
Global cnInfo As New ADODB.ConnectioncnInfo.Open "DSN = Info","",""但程序执行到上句是提示如下：
实时错误'-2147467259 (80004005)':
[Microsoft][ODBC Manager] Data source name not
found and no default driver specified请问是这一问题怎么解决，有代码 最好！
Dim rscust As ADODB.Recordset
Set con = New Connection
con.ConnectionString = "Provider=microsoft.jet.OLEDB.4.0;Data source=c:\vb\jz.MDB"
con.Open
Set rscust = New Recordset
rscust.Open "select cdxm as 姓名,cdjh as 金额,format(cdjh*0.06,'#0.00') as 利息 from jz2002", con, adOpenKeyset, adLockReadOnly
Set DataGrid1.DataSource = rscust这是连接ACCESS库的
因为你是猪！^_^
你的这一句有问题。cnInfo.Open "DSN = Info"
= 号两边不应该有空格。
瓜海牛，，我是你老汉儿哦，坤坤，哈哈
如果继续要用ODBC，那我们也只好看着你自杀了 呵呵
我现在正在用ODBC连接数据库做程序。我觉得你可能是ODBC建立的有问题。你可以测试一下。建立ODBC时，点击"配置"－－－》“TEST CONNECT”,如果测试成功了，你可以先用ADO连接
试试。如果没问题，这里的连接也不应该有什么问题。有什么问题还可以问，千万别死◎
Set cninfo = New Connection
cninfo.ConnectionString = "Provider=microsoft.jet.OLEDB.4.0;Datasource=g:\kd.MDB"
cninfo.Open但如下添加记录时Dim rs As New ADODB.Recordset
rs.Open "Select * from vip", cninfo
rs.AddNew在执行到rs.AddNew则提示:
Currect Recordset does not support updating.This may be a limitation of the provider,or of the selected locktype.
我明白时什么意思,但如何处理!
rs.Open "Select * from vip", cninfo
应为：
rs.Open "Select * from vip", cninfo，1，3
我知道问题在那里了。rs.Open "Select * from vip", cninfo,adOpenStatic, adLockOptimistic呵呵！ 成功了吧！ 给分吧！！！
打开游标。语法recordset.Open Source, ActiveConnection, CursorType, LockType, Options参数Source 可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。ActiveConnection 可选。变体型，计算有效 Connection 对象变量名；或字符串，包含 ConnectionString 参数。CursorType 可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。常量 说明
AdOpenForwardOnly （默认值）打开仅向前类型游标。
AdOpenKeyset 打开键集类型游标。
AdOpenDynamic 打开动态类型游标。
AdOpenStatic 打开静态类型游标。
LockType 可选。确定提供者打开 Recordset 时应该使用的锁定（并发）类型的 LockTypeEnum 值，可为下列常量之一（参见 LockType 属性可获得详细信息）。常量 说明
AdLockReadOnly （默认值）只读 — 不能改变数据。
AdLockPessimistic 保守式锁定（逐个） — 提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
AdLockOptimistic 开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。
AdLockBatchOptimistic 开放式批更新—用于批更新模式（与立即更新模式相对）。
Options 可选，长整型值，用于指示提供者如何计算 Source 参数（如果它代表的不是 Command 对象），或从以前保存 Recordset 的文件中恢复 Recordset。可为下列常量之一（参见 CommandType 属性可获得该列表中前五个常量的详细说明）。常量 说明
adCmdText 指示提供者应该将 Source 作为命令的文本定义来计算。
adCmdTable 指示 ADO 生成 SQL 查询以便从在 Source 中命名的表中返回所有行。
adCmdTableDirect 指示提供者更改从在 Source 中命名的表中返回所有行。
adCmdStoredProc 指示提供者应该将 Source 视为存储过程。
adCmdUnknown 指示 Source 参数中的命令类型为未知。
adCmdFile 指示应从在 Source 中命名的文件中恢复保留（保存的）Recordset。
adAsyncExecute 指示应异步执行 Source。
adAsyncFetch 指示在提取 Initial Fetch Size 属性中指定的初始数量后，应该异步提取所有剩余的行。如果所需的行尚未提取，主要的线程将被堵塞直到行重新可用。
adAsyncFetchNonBlocking 指示主要线程在提取期间从未堵塞。如果所请求的行尚未提取，当前行自动移到文件末尾。
说明使用 Recordset 对象的 Open 方法可打开代表基本表、查询结果或者以前保存的 Recordset 中记录的游标。使用可选的 Source 参数指定使用下列内容之一的数据源：Command 对象变量、SQL 语句、存储过程、表名或完整的文件路径名。如果 Source 是文件路径名，它可以是完整路径（“c:\dir\file.rst”）、相对路径（“..\file.rst”）或 URL（“http://files/file.rst”）。ActiveConnection 参数对应于 ActiveConnection 属性，并指定在哪个连接中打开 Recordset 对象。如果传送该参数的连接定义，则 ADO 使用指定的参数打开新连接。可以在打开 Recordset 之后更改该属性的值以便将更新发送到其他提供者。或者可以将该属性设置为 Nothing（在 Microsoft Visual Basic 中）以便将 Recordset 与所有提供者断开。对于直接对应于 Recordset 对象属性的参数（Source、CursorType 和 LockType），参数和属性的关系如下： 在 Recordset 对象打开之前属性是读/写。
除非在执行 Open 方法时传送相应的参数，否则将使用属性设置。如果传送参数，则它将覆盖相应的属性设置，并且用参数值更新属性设置。
在打开 Recordset 对象后，这些属性将变为只读。
注意 对于其 Source 属性被设置为有效 Command 对象的 Recordset 对象，即使 Recordset 对象没有打开，ActiveConnection 属性也是只读的。如果在 Source 参数中传送 Command 对象并且同时传递 ActiveConnection 参数，那么将产生错误。Command 对象的 ActiveConnection 属性必须已经设置为有效的 Connection 对象或者连接字符串。如果在 Source 参数中传送的不是 Command 对象，那么可以使用 Options 参数优化对 Source 参数的计算。如果没有定义 Options 则性能将会降低，原因是 ADO 必须调用提供者以确定参数是否为 SQL 语句、存储过程或表名。如果已确定所用的 Source 类型，则可以设置 Options 参数以指示 ADO 直接跳到相关的代码。如果 Options 参数不匹配 Source 类型，将产生错误。如果不存在与 Recordset 关联的连接，Options 参数的默认值将为 adCmdFile。这是持久 Recordset 对象的典型情况。如果数据源没有返回记录，那么提供者将 BOF 和 EOF 属性同时设置为 True，并且不定义当前记录位置。如果游标类型允许，仍然可以将新数据添加到该空 Recordset 对象。在打开的 Recordset 对象上完成操作时，可使用 Close 方法释放任何相关的系统资源。关闭对象并非将它从内存中删除，可以更改它的属性设置并且在以后使用 Open 方法再次将其打开。要将对象从内存中完全删除，可将对象变量设置为 Nothing。在设置 ActiveConnection 属性之前调用不带操作数的 Open，可通过将字段追加到 Recordset Fields 集合创建 Recordset 的实例。如果已经将 CursorLocation 属性设置为 adUseClient，就可以采用两种途径之一异步检索行。建议使用的方法是将 Options 设置为 adAsyncFetch。或者，可以使用在 Properties 集合中的“异步行集合处理”动态属性，但如果未将 Options 参数设置为 adAsyncFetch，则可能丢失相关的被检索事件。注意 在 MSRemote 提供者中的背景提取仅能通过 Open 方法的 Options 参数得到支持。