03的代码在2010运行出错

 Dim cnn1 As New ADODB.Connection
 Dim sqlstr1 As String
 Dim sqlstr2 As String
 Dim rst1 As New ADODB.Recordset
 Dim rst2 As New ADODB.Recordset
  With cnn1
  .Provider = "microsoft.jet.oledb.4.0"
  .ConnectionString = CurrentProject.Path & "\.mdb"
  End With
  cnn1.Open CurrentProject.Path & "\sj.mdb"
 sqlstr1 = "select * from 111"

 sqlstr2 = "select * from ss"

在2010中将mdb扩展名改名2010的扩展名，运行出错，怎么改呀？

另外在本数据库已经打开的情况下，对某个表操作，怎样简化代码？