Duda con bd en visual basic

[aulo_94]

Hola buenas tardes a todos, tengo un pequenio problema:

Estoy haciendo una aplicacion y necesito llenar un formulario desde vb a una tabla en access, mis campos en la tabla son:

ID_INGRESO (PK), ID_CAT_INGRESO (FK), MONTO, FECHA

MI PROBLEMA ES QUE EN EL FORMULARIO CARGO EL NOMBRE DEL INGRESO, EN VES DE ID_CAT_INGRESO, SE CAPTURA EL NOMBRE DEL INGRESO

EJEMPLO:

CAPTURAR: ID:1 , NOMBRE_INGRESO: SUELDO, MONTO:100 , FECHA: 24/2/2015

REGISTRAR EN BD: ID_INGRESO (PK), ID_CAT_INGRESO (FK), MONTO, FECHA

ESTE ES MI CODIGO QUE ME DA ERROR, ALGUNA SUGERENCIA?

GRACIAS!

Código:

Public Class Ingreso

    Dim conexion As New OleDbConnection
    Dim sql As New OleDbCommand






    Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click

        sql = New OleDbCommand("INSERT INTO INGRESO (ID_CAT_INGRESOS,MONTO,DESCRIPCION,FECHA) VALUES ((SELECT ID_CAT_INGRESOS FROM CAT_INGRESOS WHERE CmbGrupo.text = Nombre_Ingreso),TxtMonto,TxtDescripcion,FechaIngreso", conexion)

        sql.Parameters.AddWithValue("@ID_CAT_INGRESOS", "SELECT ID_CAT_INGRESOS FROM CAT_INGRESOS WHERE CmbGrupo.text = Nombre_Ingreso")
        sql.Parameters.AddWithValue("@MONTO", TxtMonto.Text)
        sql.Parameters.AddWithValue("@DESCRIPCION", TxtDescripcion.Text)
        sql.Parameters.AddWithValue("@FECHA", FechaIngreso.Value)

        sql.ExecuteNonQuery()

        MsgBox("Ingreso Añadido Con Exito")


    End Sub