Visual Basic.NET - no se controlo sqlException, ayuda por favor.

hola este error me sale en la linea cmd.ExecuteNonQuery(),

veran en mi codigo, puedo agregar solo 1 fila, despues pienso agregar mas datos y no me corre, me sale el error aca dejo mi codigo:



If btnGrabar.Text = "Nuevo" Then
txtcodigo.Text = "" : txtRazon.Text = ""
txtDireccion.Text = "" : txtTelefono.Text = ""
txtRuc.Text = "" : txtGuia.Text = ""
DTPFecha.Text = ""

hab(True)
btnGrabar.Text = "Guardar"
txtRazon.Focus()

ElseIf btnGrabar.Text = "Guardar" Then
Dim cod_x$, tmp$

If Dst.Tables("clientes").Rows.Count = 0 Then
cod_x = "C000"
Else
Dim iue% = Dst.Tables("clientes").Rows.Count - 1
cod_x = Dst.Tables("clientes").Rows(iue).Item(0)
End If
tmp = Str(Val(Mid(cod_x, 3)) + 1)
cod_x = Mid(cod_x, 1, 6 - Len(Trim(tmp))) & Trim(tmp)
txtcodigo.Text = cod_x

Cnx.Open()

cmd = New SqlCommand("insert into clientes(cod_cli,nom_cli,dir_cli,tel_cli,fecha_ing,ruc,guia) values(@cod_cli1,@nom_cli1,@dir_cli1,@tel_cli1,@fecha_ing1,@ruc1,@guia1)", Cnx)


cmd.Parameters.AddWithValue("cod_cli1", txtcodigo.Text)
cmd.Parameters.AddWithValue("nom_cli1", txtRazon.Text)
cmd.Parameters.AddWithValue("dir_cli1", txtDireccion.Text)
cmd.Parameters.AddWithValue("tel_cli1", txtTelefono.Text)
cmd.Parameters.AddWithValue("fecha_ing1", DTPFecha.Value)
cmd.Parameters.AddWithValue("ruc1", txtRuc.Text)
cmd.Parameters.AddWithValue("guia1", txtGuia.Text)



cmd.ExecuteNonQuery()
cmd.Dispose()
Cnx.Close()

MsgBox("datos del personal ingresados en la base de datos")
Dst.Tables("clientes").Clear()
Dap.SelectCommand.CommandText = "select * from clientes"
Dap.Fill(Dst, "clientes")
c = Dst.Tables("clientes").Rows.Count - 1
hab(True)
btnGrabar.Text = "Nuevo"

End If

amigo sdi le kitas al cod_cli1 el # 1?