Får enbart in första raden.

Vad gör jag för fel, skäms har gjort detta i vbafor app men i vbnet är det ?????????

Mvh Per H
Modulerna


Public Sub impcyk(ByVal tsokv As String, ByVal ob As String)
Dim path1 As String = tsokv & ".txt"
Dim i As Integer
Dim skitu() As String
Dim ofile As FileStream
Dim oread As StreamReader
Dim sContents As String
Dim ofile1 As New FileStream(path1, FileMode.OpenOrCreate, FileAccess.Read)
oread = New StreamReader(ofile1)

sContents = oread.ReadLine()
Do Until sContents Is Nothing
skitu = Split(sContents, ",")
korin_ohcl(ob, skitu(0), skitu(1), skitu(1), skitu(2), skitu(3), skitu(4), skitu(5), skitu(6), "cykler")
Loop

oread.Close()
ofile1.Close()

End Sub
Public Function korin_ohcl(ByVal namn As String, ByVal ob As String, ByVal da As String, ByVal Datum_t As String, ByVal tid1 As Integer, ByVal o As Decimal, ByVal h As Decimal, ByVal l As Decimal, ByVal c As Decimal, ByVal dbi As String)
Dim ska As String
Dim ds As New DataSet
Dim table As DataTable
Dim row As DataRow
Dim das1 As DataSet = New DataSet
Dim cn As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & dbi & ";Data Source=SMO;Packet Size=4096;Workstation ID=SMO")
cn.Open()
Dim createStr As String = "insert into " & namn & "(objekt,datum,tid,o,h,l,c) values('" & ob & "','" & da & "','" & tid1 & "','" & o & "','" & h & "','" & l & "','" & c & "')"
Dim createCMD As SqlCommand = New SqlCommand(createStr, cn)
createCMD.ExecuteNonQuery()
createCMD.Connection.Close()
cn.Close()
End Function

Antagligen är det här det strular:
<code>
sContents = oread.ReadLine() 'läser in första raden
Do Until sContents Is Nothing 'loopar första raden?
skitu = Split(sContents, ",")
korin_ohcl(ob, skitu(0), skitu(1), skitu(1), skitu(2), skitu(3), skitu(4), skitu(5), skitu(6), "cykler")
Loop
</code>
borde funka med lite modifikation:
<code>
Do while oread.peek <> -1
sContents = oread.ReadLine()
skitu = Split(sContents, ",")
korin_ohcl(ob, skitu(0), skitu(1), skitu(1), skitu(2), skitu(3), skitu(4), skitu(5), skitu(6), "cykler")
Loop
</code>

Suveränt tusen tack Robert !!