Public Sub DataFill(ByVal Datagrid1 As DataGrid, ByVal Strsql As String, ByVal dt As String)
OleDbConnection1.ConnectionString = strconnection
OleDbDataAdapter1.SelectCommand.Connection = OleDbConnection1
OleDbDataAdapter1.SelectCommand.CommandText = strsql
OleDbConnection1.Open()
OleDbDataAdapter1.Fill(DataSet1, dt)
'datagrid1.DataSource = DataSet1.Tables(dt)
'datagrid1.DataBind()
OleDbConnection1.Close()
end sub