OLEDB 4.0连接文本
代码如下：
Private Sub Command1_Click()
On Error GoTo errflag
Dim conn As ADODB.Connection
Dim res As New ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data\ " & ";Extended Properties= " "text " "; "
res.Open "select * from a ", conn, , , adCmdText ' ' ' ' ' ' ' ' ' ' ' ' '这句报错
res.Close
conn.Close
Set res = Nothing
Set conn = Nothing
Exit Sub
errflag:
MsgBox Err.Description & vbCrLf & Err.Number
Set res = Nothing
Set conn = Nothing
End Sub

数据文件样例如下：
地区号|网点号|机构名称 |客户号 |账号 |借据编号(证实书号)|币种|科目号 |对账日期|余额借贷方向|对账单编号 |借方余额 |贷方余额 |户名 |邮寄名称 |邮寄地址 |邮编 |联系电话 |防伪码 |
0402|0202|中国工商银行股份有限公司石家庄桥东支行 |040290000000140|0402020209273046367|00000000000000000 |001|223004 |20070101|2|040200002006103110000001| 0|00| 4326743|52|河北XX集团XX单位XX总厂 |河北XX集团XX单位XX总厂 |石家庄市XX路XX号 |050000|000000000 |10402000006100000001|

相应的配置文件如下:
[a.txt]
ColNameHeader=False
Format=Delimited(|)
MaxScanRows=0
CharacterSet=OEM
Col1=地区号 char width 4
Col2=网点号 char width 4
Col3=机构名称 char width 50
Col4=客户号 char width 15
Col5=帐号 char width 19
Col6=借据编号 char width 18
Col7=币种 char width 3
Col8=科目号 char width 7
Col9=对帐日期 char width 8
Col10=余额借贷方向 char width 1
Col11=对帐单编号 char width 24
Col12=银行借方余额 char width 16
Col13=银行贷方余额 char width 16
Col14=户名 char width 60
Col15=邮寄名称 char width 60
Col16=地址 char width 60
Col17=邮编 char width 6
Col18=电话 char width 22
Col19=防伪码 char width 20

错误描述如下:
(实时错误)
不能更新。数据库或对象为只读。
-2147217911

[解决办法]
先判断一些conn的状态 是否打开了
[解决办法]
我来收分