' Insert page code here
'
sub Page_Load (byval sender as object, byval e as eventargs)
    dim ds as dataset
    ds = getListItems
    dd1.datatextfield = "Name"
    dd1.datasource = ds
    dd1.databind
end sub
 
'______________________________________________________________________________
' _______________________________________
 
    Function getListItems() As System.Data.DataSet
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole" & _
          "DB Services=-4; Data Source=E:\Arbeit\Kim_H"& _
                                         "omepage\FerienDB.mdb"
        Dim dbConnection As System.Data.IDbConnection = New _
          System.Data.OleDb.OleDbConnection(connectionString)
 
        Dim queryString As String = "SELECT [Objekte].[Name] FROM [Objekte]"
        Dim dbCommand As System.Data.IDbCommand = New _
          System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection
 
        Dim dataAdapter As System.Data.IDbDataAdapter = New _
          System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = dbCommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)
 
        Return dataSet
    End Function
 
 
'______________________________________________________________________________
' _________________________________________
 
Sub Button5_Click(sender As Object, e As EventArgs)
        dim ds as dataset
        ds = filldatagrid(dd1.selecteditem.text)
        datagrid1.datasource = ds
        datagrid1.databind
End Sub
 
 
'______________________________________________________________________________
' _______________________________________
 
    Function fillDataGrid(ByVal name As String) As System.Data.DataSet
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole" & _
          "DB Services=-4; Data Source=E:\Arbeit\Kim_H"& _
                                         "omepage\FerienDB.mdb"
        Dim dbConnection As System.Data.IDbConnection = New _
          System.Data.OleDb.OleDbConnection(connectionString)
 
        Dim queryString As String = "SELECT [Objekte].* FROM [Objekte] WHERE (" & _
          "[Objekte].[Name] = @Name)"
        Dim dbCommand As System.Data.IDbCommand = New _
        System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection
 
        Dim dbParam_name As System.Data.IDataParameter = New _
          System.Data.OleDb.OleDbParameter
        dbParam_name.ParameterName = "@Name"
        dbParam_name.Value = name
        dbParam_name.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_name)
 
        Dim dataAdapter As System.Data.IDbDataAdapter = New _
          System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = dbCommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)
 
        Return dataSet
    End Function