<asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="<%#" & _
  "GetDataFile() %>"
			SelectCommand="SELECT [Id], [Wert] FROM [Test]"></asp:AccessDataSource>
		<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" _
  DataKeyNames="Id"
			DataSourceID="AccessDataSource1">
			<Columns>
				<asp:BoundField DataField="Id" HeaderText="Id" InsertVisible="False" _
  ReadOnly="True"
					SortExpression="Id" />
				<asp:BoundField DataField="Wert" HeaderText="Wert" SortExpression="Wert" />
			</Columns>
		</asp:GridView>
		<asp:TextBox ID="TextBox1" runat="server">~/dbase/db3.mdb</asp:TextBox>
		<asp:Button ID="Button1" runat="server" Text="Button" />

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
		If Not IsPostBack Then
			AccessDataSource1.DataBind()
		End If
	End Sub
 
	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		DataBind()
	End Sub
 
	Protected Function GetDataFile() As String
		If Not IsPostBack Then
			Return "~/dbase/db2.mdb"
		Else
			Return TextBox1.Text
		End If
	End Function