可否幫忙檢視以下的錯誤, Tks~(編號：6415)

Private Sub Form_Load()
Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Me.Show
　 DoEvents
　 Dim strConnectionString As String
　 Dim mysql As String
　 strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
　　　　　　　　　　　　　　　　　　 & App.Path & "\test.mdb"
　 conn1.Open strConnectionString
　 mysql = "select * From prstyle"
　 rs1.Open mysql, conn1, adOpenKeyset, adLockPessimistic
　
　 Set Adodc1.Recordset = rs1
　 Set DataGrid1.DataSource = Adodc1
End Sub
如上的程式, 小弟的 datagrid 無法顯示出 text.mdb 的資料, Why?!請問哪裡出錯...