Mandar datos a sql desde un archivo txt

Hola mi pregunta es la siguiente:
Tengo que
hacer un programa que me pase los datos de un txt a una base de datos
microsoft sql server, ya tengo creada la tabla pero a la hora de
insertar los datos me da error.
La primera linea del txt es la siguiente:
"Temperatura";"07/03/2012 9:36:51";4,5;1
La tabla tiene los siguientes campos:
TM_Id(porque,numeric(18,0),nonull)
TMnombre(nchar(16),null)
TMfecha(date,null)
TMtemperatura(decimal(3,2)null)
TMhora(time(7),null)
Y el código de mi programa el siguiente:
Dim cont As Integer = 1
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\Tanque.txt")
Dim stringReader As String
stringReader = fileReader
stringReader = Quitarcomillas(stringReader)
'Dim lineas As Integer = stringReader.ReadToEnd().Split(vbCrLf).Length
'MsgBox(lineas
'stringReader = Len(stringReader)
'Dim sBuscar As String
'Dim sPoner As String
'sBuscar = " "
'sPoner = ";"
'TextBox1.Text = Replace(stringReader, sBuscar, sPoner, , , vbTextCompare)
Dim nombre As String
nombre = Mid(stringReader, 1, 14) 'cuenta desde la intentar 1 y selecciona 14 caracteres
Dim fecha As Date
fecha = Mid(stringReader, 16, 10)
Dim hora As Date
hora = Mid(stringReader, 26, 8)
Dim temperatura As Decimal
temperatura = Mid(stringReader, 35, 3)
Dim Id As Integer
Id = Mid(stringReader, 39, 1)
Dim cadconect As String = "Data Source =datos; Initial Catalog = prueba; User Id=sa;Password=12345"
Dim conorigen As SqlConnection
conorigen = New SqlConnection(cadconect)
conorigen.Open()
Dim
cmdselect As SqlCommand = (New SqlCommand("INSERT INTO tablaprueba VALUES
(nombre,fecha,hora,temperatura,id);", conorigen))
Dim lector As SqlDataReader
lector = cmdselect.ExecuteReader
TextBox1.Text = stringReader
End Sub
Muchas gracias y un saludo