菜鸟MO求助！

<P>菜鸟MO求助！Private Sub Command2_Click()
Dim tablename As String
Dim j As Integer
Dim sqlstr As String
 On Error Resume Next
 CommonDialog1.Filter = "DBF文件|*.dbf"
  CommonDialog1.CancelError = True
  CommonDialog1.ShowOpen
  If Len(CommonDialog1.FileName) = 0 Then Exit Sub
   tablename = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4)
    Dim pconn As New ADODB.Connection
   Dim pcom As New ADODB.Command
   Dim recs As New mapobjects2.Recordset
    pconn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=Left(CommonDialog2.FileName, Len(CommonDialog2.FileName));"
    pconn.Mode = adModeRead
   pconn.Open
    Set pcom = New ADODB.Command
    pcom.ActiveConnection = pconn
   pcom.CommandType = adCmdText
   sqlstr = "select * from" ; Chr(9) ; tablename ; ""
     pcom.CommandText = sqlstr
   Set ptable = New mapobjects2.Table
   Set ptable.Command = pcom</P>
<P>     Set recs = ptable.Records
    For j = 0 To recs.TableDesc.FieldCount - 1
        Combo3.AddItem (recs.TableDesc.FieldName(j))
         Combo3.Text = recs.Fields(0)
      Next j
End Sub</P>
<P>不知道怎么就不能关联dbf表，各位请指教！</P>