Visual Basic

Public Class DirectoryInformation<br />
        Public Name As String<br />
    End Class<br />
    <WebMethod()> _<br />
    Public Function fncGetAllFilebin(ByVal VirtualPath As String)<br />
        Dim di As New DirectoryInfo(WebServerPath & VirtualPath)<br />
        Dim diArr As DirectoryInfo() = di.GetDirectories<br />
        Dim dri As DirectoryInfo<br />
        Dim x As Integer = 0<br />
        Dim Arr As DirectoryInformation()<br />
        ReDim Preserve Arr(di.GetDirectories.Length - 1)<br />
        For Each dri In diArr<br />
            Arr(x) = New DirectoryInformation()<br />
            Arr(x).Name = dri.Name<br />
            x += 1<br />
        Next<br />
        Return Arr<br />
    End Function

'Open Database Connection
        Dim strconnection As String = "workstation id=5875-049;packet size=4096;user id=***; Password=******;data source=S*******;persist security info=False;initial catalog=Tshwane_Valuations"
        Dim cn As SqlConnection = New SqlConnection(strconnection)
        cn.Open()

        'set up data adapter 
        Dim strSql As String = _
        "select Actual_Extent,Attrib_code,Lis_key,Func_key,Density," _
          & "New_Net_Usable_Extent,New_Total_Land_Factor,New_AdJ_Extent_1,New_Points_1," _
          & "New_ADJ_Extent_2, New_Points_2, LS_Prediction, LS_Confidence,LS_TYPE from Property_Mass "
        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)

        'load Dataset
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "Property_Summary")

        'Set up a new Data adapter Object
        strSql = "select Property_Mass.Actual_Extent,Property_Mass.Attrib_code,Property_Mass.Lis_key,Property_Mass.Func_key,Property_Mass.Density," _
       & " Property_Mass.New_Net_Usable_Extent,Property_Mass.New_Total_Land_Factor,Property_Mass.New_AdJ_Extent_1, Property_Mass.New_Points_1," _
       & " Property_Mass.New_ADJ_Extent_2, Property_Mass.New_Points_2, Property_Mass.LS_Prediction, Property_Mass.LS_Confidence, Property_Mass.LS_TYPE," _
       & " Property_Summary.Purchase_Date, Property_Summary.Purchase_Price" _
        & " from Property_Mass, Property_Summary" _
        & "where Substring(Lis_key,1,4)= ?"

        da.SelectCommand.Parameters("Lis_key").Value = txtliskeysearch.Text
        da.Fill(ds)
        If ds.Tables("Property_Mass").Rows.Count = 0 Then
            MessageBox.Show("Township not Found")
        End If

    End Sub

An unhandled exception of type 'System.IndexOutOfRangeException' occurred in system.data.dll

Additional information: An SqlParameter with ParameterName 'Lis_key' is not contained by this SqlParameterCollection.

da.SelectCommand.Parameters("Lis_key").Value = txtliskeysearch.Text