Dim i en If-Then

Jeg har følgende kode for at åbne enten en Access (lokalt til test) eller en SQL Server (på webserveren):

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim Sti As String
        Dim strSQL As String
        strSQL = "SELECT Initialer, PW, Hint FROM tblMinOrdliste_PW"

        'Det bestemmes om der køres på serveren eller lokalt
        If Request.ServerVariables("HTTP_HOST") = "www.xx.dk" Then
            Dim objConn As New SqlConnection("SERVER=mssql.buydomains.dk; UID=xx; PWD=yy; DATABASE=neesdk;")
            objConn.Open()
            Dim SQLTekst As New SqlCommand(strSQL, objConn)
            Dim ds As SqlDataReader = SQLTekst.ExecuteReader()
        Else
            Sti = Server.MapPath("MinOrdliste.mdb")
            Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Sti & ";")
            objConn.Open()
            Dim SQLTekst As New OleDbCommand(strSQL, objConn)
            Dim ds As OleDbDataReader = SQLTekst.ExecuteReader()
        End If

    End Sub

Jeg vil nu gerne arbejde videre med datasettet ds UDENFOR If-Then sætningen, men jeg ser til min overraskelse, at ds (og også objConn) er ukendte udenfor If-Then sætningen, men kendte indeni (VWD V. 2.0). Kan man ikke gøre dem kendte udenfor If-Then sætningen?