Me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=book.mdb;Persist Security Info=False;"
Me.Adodc1.RecordSource = "select BookTypeName,BookNo,BookName,BookWriter,BookPublish,BookPrice from BookInfo,BookType where BookInfo.BookType=BookType.TypeId"
Set DataGrid1.DataSource = Adodc1
abodc1.Refresh
Me.Adodc1.RecordSource = "select BookTypeName,BookNo,BookName,BookWriter,BookPublish,BookPrice from BookInfo,BookType where BookInfo.BookType=BookType.TypeId"
Set DataGrid1.DataSource = Adodc1
abodc1.Refresh