串口显示问题和Access连接问题

Question

最近在做一个系统，前段时间感谢帮我解决串口通讯问题的大虾，最近在开发的过程中，又遇到一些问题，想向大家请教。我做的一个串口通讯的程序，数据读出来了，但是在我没添加TextGrwj_change事件之前，数据读出来是没问题的，可我加了这个事件之后，文本框内只显示一下完整的数据后就小时了，这是什么原因？还有一个问题，我连接一个Acess数据库，用的是ADO和DataGrid控件，连接好后，数据可以显示出来，但是运行的时候，就会出现“Unrecognized database format <filename>. (Error 3343)”这样的提示
  但是我在另外一新建工程里面单独运行，它却没问题，这又是什么原因？
     程序的代码如下：
  Option Explicit
Dim mydb As Database
Dim myrs As RecordsetPrivate Sub Command1_Click()
myrs.AddNew
myrs(1) = Text1.Text
myrs(2) = Text2.Text
myrs(3) = Text3.Text
myrs(4) = Text4.Text
myrs(5) = Text5.Text
myrs(6) = Text6.Text
myrs(7) = Text7.Text
myrs(8) = Text8.Text
myrs(9) = Text9.Text
myrs.Update
Adodc1.Refresh
DataGrid1.RefreshEnd SubPrivate Sub Command2_Click()
Adodc1.Refresh
DataGrid1.Refresh
End SubPrivate Sub Form_Load()
 [color=#000000]Set mydb = OpenDatabase(App.Path & "\fibler.mdb")  Unrecognized database format                                                                                                                                                                      <App.Path & "\fibler.mdb">.
 Set myrs = mydb.OpenRecordset("Fibler")End Sub[/color]

Answer 1

我做的一个串口通讯的程序，数据读出来了，但是在我没添加TextGrwj_change事件之前，数据读出来是没问题的，可我加了这个事件之后，文本框内只显示一下完整的数据后就小时了上句红色标注的文字是消失吧不明白LZ你说用的是ADO和DataGrid控件
从以下代码看是使用ADO数据对象
Option Explicit 
Dim mydb As Database 
Dim myrs As Recordset 
似乎会引起混乱.

Answer 2

不是的，我这段代码是可以运行的
  就是我把
Option Explicit 
Dim mydb As Database 
Dim myrs As Recordset 
set mydb = OpenDatabase(App.path & "\fibler.mdb")
Set myrs = mydb.OpenRecordset("Fibler") 
这段代码放入我在做的那个系统的时候，就提示3343的错误了
  这段代码放如工程里面是可以运行的，我运行好多次都没问题的。