Imports System
Imports System.IO
Imports System.Collections
Module Module1
Sub Main()
Dim objReader As New StreamReader("c:\test.txt")
Dim sLine As String = ""
Dim arrText As New ArrayList()
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrText.Add(sLine)
End If
Loop Until sLine Is Nothing
objReader.Close()
Using command As New SqlCeCommand("INSERT INTO table(col1) VALUES(@data1)", Con)
command.Parameters.AddWithValue("@data1", "")
For Each sLine In arrText
command.Parameters("@data1").Value = sLine
command.ExecuteNonQuery()
End Using
End Sub
End Module