[求助]ado和datagrid控件连接shape中的dbf的问题！

请大家帮帮忙，看看错在哪里了？？。。。小弟我不胜感激<BR>'Public Sub OpenAttribute(SQLs As String)<BR>'   Dim cn As New ADODB.Connection<BR>   Dim rs As New ADODB.Recordset<BR>'   Dim cnstr As String<BR>'   cnstr = "Driver={Microsoft Visual FoxPro Driver};" ; _<BR>'            "SourceType=DBF;" ; _<BR>'            "SourceDB=" ; App.Path ; "\mee;" ; _<BR>'            "Exclusive=No"<BR>'   cn.Open cnstr<BR>'   rs.CursorLocation = adUseClient<BR>'   rs.Open SQLs, cn, adOpenKeyset, adLockBatchOptimistic<BR>'   Set DataGrid1.DataSource = rs<BR>'   DataGrid1.Refresh<BR>'   rs.Close<BR>'   Set rs = Nothing<BR>'   cn.Close<BR>'   Set cn = Nothing<BR>'End Sub <BR>