Problemas de clausula Insert en VB.NET

[ranchoteca]

Hola amigos tengo un problema con un Insert en una aplicacion.
Este es mi codigo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sr = File.OpenText("C:\Users\Steven\Desktop\Archival.TX T")
Do
lectura = sr.ReadLine()
TextBox1.Text = TextBox1.Text & lectura & Chr(13) & vbCrLf 'Le indicamos a lectura que ademas nos vaya agregando los espacios y saltos respectivos
If (colo = lectura) Then
Dim descrip, direcc, forma, saldo As String
Dim codigo As String = Nothing
Dim datos As String()

cnn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL.1\MSSQL\Data\Examen_1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
cnn.Open()

Do
Try
lectura = sr.ReadLine
datos = lectura.Split("," & vbCrLf)
codigo = datos(0)
descrip = datos(1)
direcc = datos(2)
forma = datos(3)
saldo = datos(4)
consul = "INSERT INTO Clientes (Codigo_del_Cliente,Descripcion,Direccion,Forma_Fa ctura,Saldo_Actual) Values( " _
& codigo & ", '" & descrip & "', '" & direcc & "', '" & forma & "','" & saldo & "');"

cmd = New SqlCommand(consul, cnn)

cmd.ExecuteNonQuery()
cmd = Nothing

Catch
MsgBox("Error")
End Try
Loop Until lectura Is Nothing

End If

Loop Until lectura Is Nothing 'Hasta que se acaben las lineas
sr.Close()
cnn.Close()
End Sub


NOTA:

Al realizar el INSERT el programa me dice que el Nombre de una de las variables
que voy a Insertar es Invalido en este Contexto.

Ya no se que pueda ser, agradeceria sus comentarios.........