VB中怎么在DATAGRID里添加数据呀?

我是新手，有错误请请大家指正。

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False" '打开数据库
Adodc1.RecordSource = "select * from tb_in" '连接数据表
Set DataGrid1.DataSource = Adodc1= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False" '打开数据库
Adodc1.RecordSource = "select * from tb_in" '连接数据表
Set DataGrid1.DataSource = Adodc1