XML / XSL

'Open Database Connection
Dim strconnection As String = "workstation id=5875-049;packet size=4096;user id=$$$$$$; Password=######;data source=##########;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_Mass")

'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)= " & txtliskeysearch.Text & "'%"""

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

If ds.Tables("Property_Mass").Rows.Count = 0 Then
    MessageBox.Show("Township not Found")
Else
    da.Fill(ds)
End If

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.