Dim conDB As SqlConnection
        conDB = New SqlConnection(strDbConnection)
 
        Dim strSQL As String = _
            "BULK INSERT transact.dbo.tbl_sys_test " & _
            "FROM 'c:\test.txt' " & _
            "WITH (FIELDTERMINATOR = '\t', ROWTERMINATOR = '\n', KEEPIDENTITY )"
 
        Dim scmd As New SqlCommand(strSQL, conDB)
 
        conDB.Open()
        scmd.ExecuteNonQuery()
        conDB.Close()