........................
Set aDO_Data1 = Nothing
Set aDO_Data1 = New ADODB.Recordset
Set DBGrid.DataSource = Nothing
str = "select * from [biao]"
aDO_Data1.Open str,Ado_connection, 1, 3
Set DBGrid2.DataSource = aDO_Data1
.................................