Insertar Registro

Hola amigos , tengo un problema. Necesito insertar un registro y que la
rutina me devuelva el Id (autonumerico) del nuevo registro .
como podría hacerlo ? intenté con esto pero no funciona:

Public Function EjecutarYDevolverCampo(ByVal StrSql As String, ByVal
CampoDevolver As String) As Object

Dim myCommand As New OleDbCommand(StrSql, cn)
Dim myReader As OleDbDataReader
If cn.State = ConnectionState.Closed Then
cn.Open()
End If

Try
myReader = myCommand.ExecuteReader()
Catch err As Exception
MessageBox.Show(err.Message)
Return Nothing

End Try

If myReader.RecordsAffected = 0 Then
Return Nothing
End If

While myReader.Read()
Return myReader.Item(CampoDevolver)
End While
myReader.Close()

End Function


Muchas gracias