Visual Basic.NET - Error "Imports"

Hola qué tal!? Estoy intentando leer un archivo y debo colocar lo siguiente:

Imports System.Data
Imports System.Data.OleDb

Sin embargo me da error y no reconoce la palabra "Imports".
Me subraya el Imports y me dice que: "Las instrucciones Imports deben preceder a cualquier declaración"

Alguien sabes qué significa este error?

"Las instrucciones Imports deben preceder a cualquier declaración"

Tienes algo asi?,

dim strCad as string
Imports System.Data
Imports System.Data.OleDb

Pos eso esta mal, el imports debe ir al inicio.
Sino es asi revisa tus referencias,

Suerte!

No no lo tengo así...lo colocqué al principio de la clase (La clase es la de mi ventana....)

No se qué puede estar generando el error

Y si pegaras tu codigo para poder verlo?

Recuerda IMPORTS debe ser la primera LINEA de codigo.

Hola...ya arreglé lo del Imports....pero me sigue dando error....Me subraya el "my".... No sé qué debo poner (me dice que no se ha declarado la variable 'my'.

Este es el código...Gracias por la ayuda.

Sub ReadCSVFile()

'Obtenemos el delimitador que usa el Sistema
Dim valor As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\Text", "Format", Nothing)

'Con esto cambias el delimitador del sistema a (,) = coma
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\Text", "Format", "Delimited(,)")

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=" & Chr(34) & "text;HDR=No;Format=(,)" & Chr(34)
Dim objConn As New OleDbConnection(sConnectionString)

objConn.Open()

Try
Dim objCmdSelect As New OleDbCommand("SELECT * FROM test.csv", objConn)
Dim objAdapter1 As New OleDbDataAdapter

objAdapter1.SelectCommand = objCmdSelect

Dim objDataset1 As New DataSet
objAdapter1.Fill(objDataset1, "Test")
DataGrid1.DataSource = objDataset1.Tables(0) '.DefaultView

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
objConn.Close()
'Con esto restauramos el delimitador del sistema a como estaba incialmente
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\Text", "Format", valor)
End Try

End Sub

Coye disculpa que pregunte de nuevo....pero tu sabrás dónde debo colocar el archivo .csv para que el programa lo lea...?

Lo guardé en la carpeta donde está el programa, pero no hace nada porque cuando lo corro aparece la ventana y el datgrid sin niguna info....No se dónde lo tengo que ubicar para que lo lea.

Gracias y disculpa la molestia

Si usas un sub para llamar al archivo, a esto le puedes pasar como parametro la ubicacion de tu archivo csv............

Sub LeerCSV(ruta as string) 'Ejm C:\Tucarpeta\test.csv

Dim info As New FileInfo(ruta)
Dim mPath as string=info.DirectoryName & "\" ' vendria a ser C:\Tucarpeta\

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="& mPath & ";Extended Properties=" & Chr(34) & "text;HDR=No;Format=(,)" & Chr(34)
Dim objConn As New OleDbConnection(sConnectionString)

objConn.Open()

'info.name= Devuelve el nombre del archivo con su extension...
Dim objCmdSelect As New OleDbCommand("SELECT * FROM " & info.name, objConn)
Dim objAdapter1 As New OleDbDataAdapter

etc...............
etc..............

End Sub

en el OleDbCommand he cambiado test.csv por el archivo que viene de la ruta....

Muchísimas gracias!!! Funcionó...
el problema es que no me reconoce el "FileInfo"... Lo coloqué manual y funionó perfecto.

Sabes por qué puede ser? =S

Y gracias de verdad!

Hola Sarah, q bueno q te haya servido,,,,,,,,,,,,,,

Con respecto al Fileinfo, debes utilizar el Namespace:

Imports System.IO

colocarlo arriba del Class
Ejemplo:
Imports System.Drawing.Printing
Public Class Form2