Visual Basic.NET - Leer campo en insert into

Hola peña:

Tengo un problemilla con mi aplicación, necesito obtener el valor de un campo autonúmerico cuando se inserta nuevos campos en la tabla.

SentenciaSql("INSERT INTO ENTRADA (FECHA,NTALON,BANCO,IMPORTE) VALUES ('" & Me.btnFecha.Text & "'," & Val(Me.TextNtalon.Text) & ",'" & UCase(Me.cmbBanco.Text) & "'," & Val(Me.TextImporte.Text) & ")")
Try
cmd.ExecuteNonQuery()

.......

TABLA
Identrada autonumeracion <-- "Campo que quiero leer"
Fecha texto
Talon numerico

........

El registro se crea correctamente, pero como puedo tomar el valor del campo que se genera automaticamente ??.

Gracias.

''Esta funcion totalempleados lo usas para traer el id
dim midi as integer=0
''almacenamos la id
midi=totalempleados("Select Max(Identrada ) from tabla")
''-------------------------------------------------------------------------------------
'Function totalempleados(ByVal sql As String) As Integer
Dim readeraas As OleDbDataReader = Nothing
Dim total As Integer = 0

Try

Dim cmdleer As New OleDbCommand(sql, conexion)

conexion.Open()
readeraas = cmdleer.ExecuteReader
While readeraas.Read()
If IsDBNull(readeraas.GetValue(0)) Then

Else
total = readeraas.GetValue(0)

End If
End While

conexion.Close()
readeraas.Close()

Catch ex As Exception
conexion.Close()
readeraas.Close()
MsgBox(ex.Message, MsgBoxStyle.Critical, "Aviso")
End Try

Return total
End Function