VB中用DataGrid读取Access代码

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM tablename", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbpath"
Set DataGrid1.DataSource = rs