OLEDB 4.0连接文本解决方案

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的状态 是否打开了
[解决办法]
我来收分