Conversion from string to type Double is not valid in vb.net 2005

Hi,

I have the following code: -

    Private Sub lstOrderRequirements_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstOrderRequirements.SelectedIndexChanged
        'If Not lstOrderRequirements.SelectedValue.ToString Is Nothing Then
        If Not lstOrderRequirements.SelectedValue Is Nothing Then
            Connect()
            rs = conn.Execute("SELECT * FROM products where ItemID =" & lstOrderRequirements.SelectedValue.ToString)

            txtCustomer.Text = ""
            txtBayNo.Text = ""
            txtItemName.Text = ""
            txtItemCode.Text = ""
            txtCostPerItem.Text = ""
            txtBoxesPerItem.Text = ""
            'MsgBox(rs.Fields("CustomerID").Value)

            If Not rs.Fields("CustomerID").Value Is DBNull.Value Then txtCustomer.Text = "" = rs.Fields("CustomerID").Value
            If Not rs.Fields("BayID").Value Is DBNull.Value Then txtBayNo.Text = "" = rs.Fields("BayID").Value
            If Not rs.Fields("ItemName").Value Is DBNull.Value Then txtItemName.Text = "" = rs.Fields("ItemName").Value
            If Not rs.Fields("ItemCode").Value Is DBNull.Value Then txtItemCode.Text = "" = rs.Fields("ItemCode").Value
            If Not rs.Fields("Cost").Value Is DBNull.Value Then txtCostPerItem.Text = "" = rs.Fields("Cost").Value
            If Not rs.Fields("Boxes").Value Is DBNull.Value Then txtBoxesPerItem.Text = "" = rs.Fields("Boxes").Value
            rs.Close()
            conn.Close()
        End If

    End Sub

I keep getting the error message: -

Conversion from string "" to type 'Double' is not valid. on line: -

If Not rs.Fields("CustomerID").Value Is DBNull.Value Then txtCustomer.Text = "" = rs.Fields("CustomerID").Value

How do I resolve this please.

Many Thanks
LeeStart Free Trial