kan det laves mindre og hvad med connstring

Hej

Jeg har endelig fået dette til at virke, men jeg har dog lige 2 spm. til det.

1. Kan det skrives så det virker bedre/hurtigere !?
2. min DBConnection = New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\Documents and Settings\site\App_Data\myDSNbase.mdb")
virker ok men kan ikke få den til at virke så den bruger min:
    <connectionStrings>
        <add name="ConnectionDogs" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\myDSNbase.mdb;Persist Security Info=True"/>
    </connectionStrings>

har prøvet at ændre min kode til:
DBConnection = New OleDbConnection(ConfigurationManager.AppSettings("ConnectionDogs"))

Hvorfor vil det ikke virke !?   

kode til spm. 1:
    Dim DBConnection As OleDbConnection
    Dim DBAdapter As OleDbDataAdapter
    Dim DBDataSet As DataSet
    Dim DBDataView As DataView
    Dim SQLString As String

    Sub Page_Load()

        DBConnection = New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\Documents and Settings\Jacki\Dokumenter\Billeder\Cairn Terrrier\site\site\App_Data\kennelenggaardDSNbase.mdb")
        SQLString = "SELECT * FROM KennelEnggaardDogs"
        DBAdapter = New OleDbDataAdapter(SQLString, DBConnection)
        DBDataSet = New DataSet()
        DBAdapter.Fill(DBDataSet, "KennelEnggaardDogs")
        DBDataView = New DataView(DBDataSet.Tables("KennelEnggaardDogs"))
        DisplayRepeater.DataSource = DBDataView
        DisplayRepeater.DataBind()

    End Sub

    Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
        DBConnection.Close()
        DBConnection = Nothing
        DBAdapter.Dispose()
        DBAdapter = Nothing

    End Sub