InvalidCastExeption when trying to dim a string

Vote count:

0

Im having a problem when trying to run my code. Im new to stackoverflow but will try to explain my problem.

Well, i get a "InvalidCastExeption" with the explanation

"Converson from string "Filename" to type "Integer" is not valid.

The confusing part is that FileName is a nvarchar(30) in my SQL database, and sName a string.

Look at the code, it failes at the dim sName = ... Ps - I have tried to convert.toint / Cint, but it doesnt help. AND i want it as a string, not a integer!

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class SelectrecipieDatabaseManager
Private Const CONNECTION_STRING As String = "Data Source=RYOW701;Initial Catalog=RyReci;Integrated Security=True"
Private connection As SqlConnection = Nothing
Private command As SqlCommand = Nothing

Public Sub RecipieHandler(ByVal Choice As String)

    Dim reader As SqlDataReader
    connection = New SqlConnection(CONNECTION_STRING)

    Try
        connection.Open()


            Dim Query As String
            Query = "select *  from TbNew"
            command = New SqlCommand(Query, connection)
            reader = command.ExecuteReader

            While reader.Read

                Dim sName = reader.GetString("FileName")

                RecipieForm.ComboBoxRec.Items.Add(sName)
            End While



    Catch ex As SqlException
        MessageBox.Show(ex.Message)

    Finally
        connection.Close()
        connection.Dispose()
    End Try

End Sub

End Class

asked 1 min ago

user3452951

1