problemas con insercion de datos e @@identity

[cplasenciam]

mi problema esque cuando corro el programa me dice lo sgte :"No mapping exists from object type Cuenta to a known managed provider native type.".. y no capto ps cual es el problema
ademas les comento de que estoy trabajando con una variable "id_transaccion" la cual es de tipo identity, y cmo que no se si esta bien hecha mi consultar para insertar los datos.. esperom de que me puedan ayudar

Public Function NuevaTransferencia() As Boolean
oCn.Open()
'crear la solicitud, petcion a la BD
oCm = New SqlCommand
oCm.Connection = oCn
oCm.CommandType = CommandType.Text
'oCm.CommandText = "Insert into Clientes(IdCliente,Nombre,Apellidos,Calificacion,t ipo,fecha,NombreU) values ('" & varLblId & "', '" & varNombres & "', '" & VarApellidos & "', '" & VarCalificacion & "', '" & VarTipo & "', '" & Varfecha & "', '" & varUnidad & "')"
oCm.CommandText = "Insert into Transferencia(id_cuenta,id_tarjeta,cta_destino,mon to,moneda,titular,tipo_cambio,monto_cambio) values (@id_cuenta,@id_tarjeta,@ctaDestino,@monto,@moneda ,@titular,@tipoCambio,@montoCambio)" & _
"select @@identity"
'agregar(parametros)
'parametros de entrada
oCm.Parameters.AddWithValue("@id_cuenta", Me._id_cuenta)
oCm.Parameters.AddWithValue("@id_tarjeta", Me._id_tarjeta)
oCm.Parameters.AddWithValue("@ctaDestino", Me._ctadestino)
oCm.Parameters.AddWithValue("@monto", Me._monto)
oCm.Parameters.AddWithValue("@moneda", Me._monto)
oCm.Parameters.AddWithValue("@titular", Me._titular)
oCm.Parameters.AddWithValue("@tipoCambio", Me._tipocambio)
oCm.Parameters.AddWithValue("@montoCambio", Me._montocambio)
'parametro de salida
'oCm.Parameters.Add("@cod_cliente", SqlDbType.Int).Direction = ParameterDirection.Output

'ejecutar el commad es un metodo de insercion por eso isamos el noquery
If oCm.ExecuteNonQuery > 0 Then
'devolver el codigo generado
Return True
Else
Return False
End If

end function